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ABSTRACT 


A  menu-driven  computer  program  has  been  developed  to  serve  as  a  users 
interface  with  ACSYNT,  the  NASA-AMES  program  for  aircraft  synthesis.  The 
interface  program,  CREATE,  drastically  reduces  the  amount  of  time  required 
to  learn  how  to  use  ACSYNT,  thus  allowing  the  power  of  ACSYNT  to  be  used 
more  effectively  by  the  Aircraft  Design  curriculum  at  the  Naval  Postgraduate 
School. 

CREATE  has  been  developed  to  reduce  the  reqtured  number  of  inputs  to 
ACSYNT  and  is  ideal  for  use  with  the  early  phases  of  the  Aeronautical 
Engineering  Cturriculum.  It  can  provide  rapid  feedback  when  examining  the 
effects  that  different  aircraft  parameters  have  on  the  overall  aircraft 
performance,  thus  enhancing  the  students  understanding  of  the  relationships 
between  the  numerous  variables  of  aircraft  studies. 

included  in  the  thesis  are  fo\ir  examples  that  demonstrate  some  of  the 
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L  INTRODUCTION 


A.  THESIS  ORIENTATION 

This  thesis  is  designed  to  serve  as  a  users  manual  for  use  with  the  Naval 
Postgraduate  School  Aircraft  Synthesis  Program  (NPSASP).  NPSASP  consists 
of  two  parts:  ACSYNT  and  CREATE.  ACSYNT  (^rcraft  Synthesis)  is  briefly 
described  in  section  (6)  below.  CREATE  was  developed  for  this  thesis  and  is 
described  in  detail  in  the  following  chapters.  Additionally,  one  of  the  modules 
of  ACSYNT,  NAVY,  was  extensively  modified  and  reinstalled  at  NPS  as  thesis 
work  (Chapter  IX). 

The  information  contained  in  this  thesis  is  entirely  based  on  the  version 
of  ACSYNT  presently  installed  on  the  NPS  Aeronautics  Department  Vax 
Computer  System.  Different  versions  of  ACSYNT  may  or  may  not  be 
compatible  with  CREATE. 

Included  in  this  thesis  are  four  detailed  examples  to  be  used  with 
CREATE.  They  provide  the  iiser  with  specific  guidance  on  the  development  of 
an  aircraft  data  file  and  interpretation  of  the  results. 

B.  ACSYNT  OVERVIEW 

ACSYNT  was  first  developed  at  the  NASA- AMES  Research  Center  during 
the  early  1970’s  to  aid  in  the  conceptual  design  process  of  advanced  aircraft. 
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The  aircraft  type  may  be  transport,  bomber  or  fighter  configurations  and  the 
size  of  the  aircraft  is  normally  not  a  factor.  Small,  unmanned  air  vehicles 
(Example  4)  as  well  as  transports  the  size  of  the  C-5  may  be  evaluated  with 
ACSYNT.  Studies  have  shown  that  with  proper  inputs,  ACSYNT  results 
match,  to  within  ten  percent,  the  characteristics  of  existing  aircraft  [Ref  1]. 
Many  commercial  aircraft  companies  as  weU  as  numerous  educational 
institutions  use  ACSYNT  for  aircraft  design  studies. 

The  Naval  Postgraduate  School  (NI^)  played  a  role  in  the  early 
evaluation  and  use  of  ACSYNT.  The  application  of  ACSYNT  to  VSTOL 
aircraft  was  investigated  by  O’Donnell  in  1978  [Ref  1]  and  the  first  manual  for 
ACSYNT  was  written  as  thesis  work  by  Arnold  B.  Bruflat  [Ref  2]  in  1977. 
The  Navy  module  of  ACSYNT  was  developed  at  NPS  by  M.  D.  Barrett  for  use 
iu  the  study  of  a  carrier  based,  high  energy  laser  equipped  aircraft. 

Over  the  years,  ACSYNT  has  evolved  as  additional  capabilities  were 
added  and  obsolete  routines  were  updated.  The  modular  design  of  ACSYNT 
makes  it  possible  to  update  one  module  without  needing  to  make  extensive 
modifications  to  the  other  modules.  While  this  slow  growth  has  aided  the 
abilities  of  ACSYNT,  it  has  not  made  it  easier  to  use.  A  learning  period  on  the 
order  of  weeks  is  required  to  fully  understand  and  use  the  program,  thus 
putting  it  effectively  out  of  reach  for  many  students.  CREATE  was  developed 
in  an  effort  to  bypass  this  learning  period  and  bring  ACSYNT  under  control. 
Specific  information  about  ACSYNT  can  be  fo\md  in  References  2  and  3. 


2 


C.  SUGGESTED  READD^G  METHOD 


When  using  this  thesis  as  a  users  manual,  Chapters  1  and  11  should  be 
read  first  to  gain  an  insight  into  the  nature  of  NPSASP,  after  which  Examples 
1,  2  and  3  should  be  performed.  Chapters  III  -  VIII  shoiild  be  used  as  reference 
material  when  establishing  a  new  design  or  when  performing  one  of  the 
Examples.  Example  4  provides  additional  experience  with  an  oblique  wing, 
unmanned  air  vehicle,  to  demonstrate  the  lower  weight  range  that  ACSYNT 
can  handle. 
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n.  CREATE  OVERVIEW 


A.  PROGRAM  PHILOSOPHY 

The  primaxy  goal  for  CREATE  is  to  assist  a  novice  user  to  build  and  edit 
the  aircraft  data  file  that  is  used  by  ACSYNT  to  analyze  a  design.  While  this 
data  file  could  be  produced  manually,  it  is  not  a  simple  matter  and  would  act 
as  another  obstacle  for  a  novice  to  overcome.  A  "professional"  user  of 
ACSYNT  may  want  to  b3rpas8  CREATE  and  build/edit  the  data  file  manually, 
as  CREATE  does  not  support  some  of  the  advanced  features  of  ACSYNT. 

The  second  goal  for  CREATE  is  to  minimize  the  probabihty  that  a  data 
file  will  be  rejected  by  ACSYNT.  CREATE  incorporates  numerous  error¬ 
trapping  routines  that  will  help  to  catch  problems  before  running  ACSYNT, 
and  additionally  insures  that  many  of  the  undocumented  idiosyncracies  of 
ACSYNT  are  satisfied.  It  should  be  noted  that  ACSYNT  is  still  a  very 
sensitive  program  and  "crashes"  often  occur,  even  for  what  appears  to  be  a 
valid  set  of  aircraft  parameters.  Computations  internal  to  ACSYNT  are  not 
always  protected  firom  common  calculation  errors,  such  as  dividing  by  zero. 

CREATE  is  a  "mirror"  image  of  ACSYNT.  Each  section  of  CREATE 
(Geometry,  Trsyectory,  etc...)  is  directly  linked  to  the  corresponding  module  of 
ACSYNT.  The  information  discussed  in  the  following  Chapters  applies  to  both 
ACSYNT  and  CREATE. 
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B.  PROGRAM  STRUCTURE 


CREATE  has  two  main  paths  that  it  will  follow  when  building  or  editing 
a  data  file  (see  source  code  listing  in  Appendix  A).  The  first  path  is  used  when 
a  new  file  is  created.  When  this  path  is  initiated,  all  of  the  default  variables 
are  set  and  internal  flags  are  raised.  These  flags  ensure  that  the  user  is 
guided  through  each  of  the  required  or  selected  modules  in  the  correct 
sequence.  The  second  path  is  enabled  when  a  previously  created  file  is  loaded. 
This  allows  the  user  to  bypass  modules  that  do  not  need  to  be  altered,  thus 
saving  time.  The  flow  chart  for  CREATE  is  shown  in  Figure  1. 

If  CREATE  senses  an  error  when  a  variable  is  input,  that  value  will  not 
be  accepted.  This  will  occur  if  the  variable  is  outside  of  the  recommended  range 
or  it  is  not  of  the  correct  data  type  (real,  integer  or  logical).  An  example  of  this 
is  attempting  to  input  a  real  number  when  an  integer  is  expected.  The 
acceptable  range  and  data  type  for  each  variable  are  given  in  Chapters 

m-vni. 


C.  CAUTIONARY  NOTES 

CREATE  uses  a  linear  structure,  that  is  it  builds  the  data  file  as  the  user 
progresses  through  the  program.  If  the  user  breaks  out  of  the  program  (via 
ctrl-c  or  other  means)  the  data  file  will  be  incomplete  and  unsuitable  for  use. 
The  entire  sequence  of  CREATE  must  be  completed  each  and  every  time  the 
program  is  accessed. 
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If  a  previously  created  file  is  being  edited,  a  back-up  file,  named 
"TEMP.DAT',  is  created  in  the  users  root  directory.  This  back-up  file  is  an 
identical  copy  to  the  original  data  file.  If  a  power  failure  or  other  catastrophe 
should  occur  while  editing  the  original  file,  this  back-up  may  be  renamed  to 
the  original  and  used. 

CREATE  and  ACSYNT  tise  the  same  logical  unit  numbers  for  input  and 
output  (I/O)  control.  If  ACSYNT  crashes  during  a  run,  the  following 
commands  should  be  executed  before  running  CREATE  again: 

•  DEASSIGN  FOR005 

•  DEASSIGN  FOR006 

•  DEASSIGN  FOR007 

•  DEASSIGN  FOROlO 


If  these  commands  are  not  executed,  create  will  attempt  to  use  the  same 
I/O  paths  that  ACSYNT  was  using,  with  fatal  results.  If  ACSYNT  does  not 
crash,  these  commands  are  executed  automaticaUy  upon  ACSYNT  completion. 
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Establish  Analysis 
ttethod 


Figure  1.  CREATE  Flow  Chart 
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HL  ANALYSIS  METHODS 


A.  OVERVIEW 

Three  analysis  methods  are  supported  by  CREATE:  Simple  Analysis, 
Optimization  and  Sensitivity.  Each  method  is  described  in  detail  below. 
Selection  of  one  of  the  analysis  methods  sets  the  course  that  ACSYNT  will 
follow  when  evaluating  the  design. 

B.  SIMPLE  ANALYSIS 

This  should  always  be  the  first  method  used  on  a  new  design  and 
whenever  a  variable  is  changed  on  an  old  design.  When  this  method  is 
selected,  ACSYNT  will  "fly"  the  design  through  the  given  mission  (Chapter  V) 
several  times.  After  completing  the  mission  once,  ACSYNT  updates  the 
estimated  fuel  weight  required  to  fly  the  mission.  This  in  turn  alters  the 
estimated  gross  weight  of  the  aircraft  at  takeoff  (via  the  weights  module).  This 
new  estimate  is  then  used  on  the  next  pass  through  the  mission.  When  the 
new  estimated  weight  and  the  weight  actually  required  to  fly  the  mission  agree 
within  a  tolerance  of  0.0001,  the  aircraft  is  said  to  be  "converged”.  To  use  this 
method,  it  only  needs  to  be  selected  via  the  Anal}rsis  Method  Menu  with 
CREATE. 
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C.  OPTIMIZATION  ANALYSIS 


ACSYNT  will  optimize  one  variable  (known  as  the  objective  variable) 
given  a  niunber  of  design  variables  (variables  that  ACSYNT  may  modify  to 
optimize  the  objective)  and  constraints.  The  only  requirement  for  this  method 
is  that  the  design  variables  may  not  be  related  to  each  other  (i.e.  wing  span 
and  aspect  ratio  should  not  be  used  together)  and  the  design  must  have  been 
previously  converged  using  Simple  Analysis.  If  the  design  is  not  yet  converged, 
the  Optimization  process  wiU  be  started  while  ACSYNT  is  attempting  to 
converge  the  design.  This  will  cause  erroneous  Optimization  results. 

An  example  of  this  method  would  be  to  minimize  the  aircraft  gross  weight 
by  allowing  ACSYNT  to  resize  the  wing  area  (within  supplied  limits),  given  a 
constraint  on  the  required  turning  radius.  See  Example  3  for  further  insight 
into  this  method. 

The  variables  that  may  be  used  with  this  method  are  given  in  Tables 
1-5.  The  variables  are  input  to  the  program  by  using  the  Global  Variable 
Number  that  is  assigned  to  each  variable.  It  should  be  noted  that  not  every 
variable  used  to  define  a  design  may  be  used  to  optimize  the  design.  Also  note 
that  the  units  associated  with  each  variable  are  not  always  the  same  units 
used  with  the  aircraft  data  file.  Topically,  performance  parameters  or  gross 
weight  are  used  as  the  Objective  Variable  while  geometric  or  performance 
parameters  are  used  as  the  Design  Variables.  See  Reference  4  for  specific 
information  on  this  method. 
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1.  Optimization  Inputs 


The  following  information  is  required  for  input  when  running 


CREATE: 


•  The  Objective  Variable  and  its  Global  Number. 

•  The  Design  Variable(s)  and  the  Global  Nimiber(8).  Upper  and  lower 
bounds  must  also  be  provided  for  each  variable. 

•  The  Constraint  Variable(p)  and  the  Global  Numbers).  Upper  and  lower 
botinds  on  the  Constraint(s)  will  also  be  required.  Constraints  should 
only  be  used  if  they  are  required.  Unnecessary  constraints  will  only 
inhibit  the  Optimization  process. 


D.  SENSmvnY  ANALYSIS 

This  method  is  useful  to  examine  the  effect  that  certain  variables  have  on 
another  variable.  For  example,  the  effect  that  the  canard  aspect  ratio  has  on 
the  txu-ning  rate  could  be  examined.  This  method  is  used  in  a  manner  similar 
to  the  Optimization  Method.  The  Sensitivity  Objective  is  the  variable  that  will 
be  examined  (e.g.  the  turning  rate).  The  Sensitivity  Variable  is  the  variable 
that  will  be  altered.  Seven  different  values  of  the  Sensitivity  Variable  will  be 
analyzed  by  ACSYNT,  scaled  between  upper  and  lower  bounds  as  provided  by 
the  user.  These  values  will  produce  seven  different  outcomes  on  the 
Sensitivity  Objective  (see  Example  2).  Up  to  eight  sensitivity  variables  and 
objectives  may  be  selected. 
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1.  Sensitivity  Inputs 

The  following  information  is  required  for  input  with  this  method: 

*  The  Sensitivity  Objective(s)  and  the  Global  Nvunber(s). 

•  The  Sensitivity  Variable(s)  and  the  Global  Number(s).  Upper  and  lower 
bounds  on  each  variable  must  also  be  provided. 
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TABLE  1. 


Geometry  Variables 

Variable 

Globa! 

Number 

1/4  Chord  Sweep,  Canard  (deg) 

423 

1/4  C!hord  Sweep,  Horuontal  Tail  (deg) 

424 

1/4  Chord  Sweep,  Vertical  Tail  (deg) 

425 

1/4  Chord  Sweep,  Wing  (deg) 

426 

Aspect  Ratio,  Canard 

45 

Aspect  Ratio,  Horizontal  Tail 

46 

Aspect  Ratio,  Vertical  Tail 

59 

Aspect  Ratio,  Wing 

60 

Fuel  Fraction  in  Wing 

211 

Fuselage  Afterbody  Fineness  Ratio 

208 

Fuselage  Diameter  (maximum)  (ft) 

66 

Fuselage  Fineness  Ratio  (overall) 

209 

Fuselage  Length  (ft) 

69 

Fuselage  Nose  Fineness  Ratio 

210 

Fuselage  Volume  (ft*) 

525 

Mean  Aerodynamic  Chord,  Canard  (ft) 

70 

Mean  Aerodynamic  Chord,  Horizontal  Tail  (ft) 

71 

Mean  Aerodynamic  Chord,  Vertical  Tail  (ft) 

72 

Mean  Aerodynamic  Chord,  Wing  (ft) 

73 

Number  of  Crew 

182 

Number  of  Vertical  Tails 

529 

Pod  Length  (ft) 

307 

Pod  Radius  (ft) 

308 

Pod  Volume  (ft*) 

524 
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TABLE  1.  (cont) 


Geometry  Variables 

Variable 

Global 

Number 

Reference  Area,  Canard  (ft‘) 

371 

Reference  Area,  Horizontal  Tail  (ft‘) 

388 

Reference  Area,  Vertical  Tail  (ft^) 

415 

Reference  Area,  Wing  (ft’) 

422 

Root  Chord,  Canard  (ft) 

367 

Root  Chord,  Horizontal  Tail  (ft) 

368 

Root  Chord,  Vertical  Tail  (ft) 

369 

Root  Chord,  Wing  (ft) 

370 

Root  Elevation,  Canard  (ft) 

671 

Root  Elevation,  Horizontal  Tail  (ft) 

669 

Root  Elevation,  Vertical  Tail  (ft) 

670 

Root  Elevation,  Wing  (ft) 

668 

Root  LE  Location,  Canard  (ft) 

608 

Root  LE  Location,  Horizontal  Tail  (ft) 

609 

Root  LE  Location,  Vertical  Tail  (ft) 

611 

Root  LE  Location,  Wing  (ft) 

612 

Root  T/C  Ratio,  Canard 

427 

Root  T/C  Ratio,  Horizontal  Tail 

428 

Root  T/C  Ratio,  Vertical  Tail 

429 

Root  T/C  Ratio,  Wing 

430 

Span,  Canard  (ft) 

411 

Span,  Horizontal  Tail  (ft) 

412 

Span,  Vertical  Tail  (ft) 

413 

Span,  Wing 

414 
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TABLE  1.  (cont) 


Geometry  Variables 

Variable 

Global 

Number 

Stiake  Area,  LE  (ft^) 

682 

Strake  Area,  TE  (ft*) 

686 

Strake  Sweep,  LE  (deg) 

684 

Taper  Ratio,  Canard 

511 

Taper  Ratio,  Horizontal  Tail 

512 

Taper  Ratio,  Vertical  Tail 

513 

Taper  Ratio,  Wing 

514 

Tip  T/C  Ratio,  Canard 

431 

Tip  T/C  Ratio,  Horizontal  Tail 

432 

Tip  T/C  Ratio,  Vertical  Tail 

433 

Tip  T/C  Ratio,  Wing 

434 

Wetted  Area,  Canard  (ft*) 

417 

Wetted  Area  of  Each  Pod  (ft*) 

419 

Wetted  Area,  Fuselage  (ft*) 

416 

Wetted  Area,  Horizontal  Tail  (ft*) 

418 

Wetted  Area  of  the  LE  Strake  (ft*) 

663 

Wetted  Area  of  the  TE  Strake  (ft*) 

664 

Wetted  Area,  Vertical  Tail  (ft*) 

420 

Wetted  Area,  Wing  (f^) 

421 

Wing  Dihedral  (deg) 

667 

Wing  LE  Flap  Chord  (%  of  wing  chord) 

243 

Wing  TE  Flap  Chord  (%  of  wing  chord) 

470 
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TABLE  2. 


Trajectory  Variables 

Variable 

Global 

Number 

Altitude  at  End  of  Phase  1 

217 

Altitude  at  End  of  Phase  2 

218 

Altitude  at  End  of  Phase  3 

219 

Altitude  at  End  of  Phase  4 

220 

Altitude  at  End  of  Phase  5 

221 

Altitude  at  End  of  Phase  6 

222 

Altitude  at  End  of  Phase  7 

223 

Altitude  at  End  of  Phase  8 

224 

Altitude  at  End  of  Phase  9 

225 

Altitude  at  End  of  Phase  10 

226 

Altitude  at  End  of  Phase  11 

227 

Altitude  at  End  of  Phase  12 

228 

Altitude  at  Start  of  Phase  1 

229 

Altitude  at  Start  of  I^ase  2 

230 

Altitude  at  Start  of  Phase  3 

231 

Altitude  at  Start  of  Phase  4 

232 

Altitude  at  Start  of  Phase  5 

233 

Altitude  at  Start  of  Phase  6 

234 

Altitude  at  Start  of  Phase  7 

235 

Altitude  at  Start  of  Phase  8 

236 

Altitude  at  Start  of  Phase  9 

237 

Altitude  at  Start  of  Phase  10 

238 

Altitude  at  Start  of  Phase  11 

239 

Altitude  at  Start  of  Phase  12 

240 
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TABLE  2.  (cont) 


1  Trajectory  Variables 

Variable 

Global 

Number 

Cruise  Mach  Number 

183 

Cruise  Range  (nm) 

351 

Design  Load  Factor  (g’s) 

188 

Instantaneous  Turn  Rate,  Phase  1  (deg/s) 

435 

Instantaneous  Turn  Rate,  Phase  2  (deg/s) 

436 

Instantaneous  Turn  Rate,  Phase  3  (deg/s) 

437 

Instantaneous  Turn  Rate,  Phase  4  (deg/s) 

438 

Instantaneous  Turn  Rate,  Phase  6  (deg/s) 

439 

Instantaneous  Turn  Rate,  Phase  6  (deg/s) 

440 

Instantaneous  Turn  Rate,  Phase  7  (deg/s) 

441 

Instantaneous  Turn  Rate,  Phase  8  (deg/s) 

442 

Instantaneous  Turn  Rate,  Phase  9  (deg/s) 

443 

Instantaneous  Turn  Rate.  Phase  10  (deg/s) 

444 

Instantaneous  Turn  Rate,  Phase  11  (deg/s) 

445 

Instantaneous  Turn  Rate,  Phase  12  (de^s) 

446 

Mach  Number  at  End  of  Phase  1 

399 

Mach  Number  at  End  of  Phase  2 

400 

Mach  Number  at  End  of  Phase  3 

401 

Mach  Number  at  End  of  Phase  4 

402 

Mach  Number  at  End  of  Phase  5 

403 

Mach  Number  at  End  of  Phase  6 

404 

Mach  Number  at  End  of  Phase  7 

405 

Mach  Number  at  End  of  Phase  8 

406 

Mach  Number  at  End  of  Phase  9 

407 

16 


TABLE  2.  (cont) 


Trajectory  Variables 


Mach  Number  at  End  of  Phase  10 


Mach  Number  at  End  of  Phase  11 


Mach  Number  at  End  of  Phase  12 


Mach  Number  at  Start  of  Phase  1 


Mach  Number  at  Start  of  Phase  2 


Mach  Number  at  Start  of  Phase  3 


Mach  Number  at  Start  of  Phase  4 


Mach  Number  at  Start  of  Phase  5 


Mach  Number  at  Start  of  Phase  6 


Mach  Number  at  Start  of  Phase  7 


Mach  Number  at  Start  of  Phase  8 


Mach  Number  at  Start  of  Phase  9 


Mach  Number  at  Start  of  Phase  10 


Mach  Number  at  Start  of  Phase  11 


Mach  Number  at  Start  of  Phase  12 


Maximum  Dynamic  Pressure  (psi) 


Specific  Excess  Power,  Phase  1  (ft/s) 


Specific  Excess  Power,  Phase  2  (fl/s) 


Specific  Excess  Power,  Phase  3  (ft/s) 


Specific  Excass  Power,  Phase  4  (ft/s) 


Specific  ExceSi?  Power,  Phase  6  (ft/s) 


Specific  Excess  pTwer,  Phase  6  (ft/s) 


Specific  Excess  Power,  Phase  7  (ft/s) 


Specific  Excess  Power,  Phase  8  (ft/s) 


Global 

Number 
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TABLE  2.  (coni) 


Trajectory  Variables  ^ 

Variable 

Olobal 

Number 

Specific  Excess  Power,  Fbase  9  (ft/s) 

320 

Specific  Excess  Power,  Phase  10  (ft/s) 

321 

Specific  Excess  Power,  Phase  11  (ft/s) 

322 

Specific  Excess  Power,  Phase  12  (ft/s) 

323 

Sustained  Turn  Rate,  Phase  1  (deg/s) 

447 

Sustained  Turn  Rate,  Phase  2  (deg/s) 

448 

Sustained  Turn  Rate,  Phase  3  (d^s) 

449 

Sustained  Turn  Rate,  Phase  4  (deg/s) 

450 

Sustained  Turn  Rate,  Hiase  5  (deg/s) 

451 

Sustained  Turn  Rate,  Phase  6  (deg/s) 

452 

Sustained  Turn  Rate,  Phase  7  (deg/s) 

453 

Sustained  Turn  Rate,  Phase  8  (deg/s) 

454 

Sustained  Turn  Rate,  Phase  9  (deg/s) 

455 

Sustained  Turn  Rate,  Phase  10  (deg/s) 

456 

Sustained  Turn  Rate,  Phase  11  (deg/s) 

457 

Sustained  Turn  Rate,  Phase  12  (deg/s) 

458 

Taxi  and  Warm-v^  Time  (min) 

497 

Takeofi/Land  Altitude  (ft) 

38 

Take-off  Time  (min) 

498 

Ultimate  Load  Factor  (g’s) 

519 
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TABLE  3. 


Aerodynamics  Variables 

\  VariiJUe. " 

Global 

Number 

Horizontal  Tail  Lift  Curve  Slope 

708 

Wing  lift  Curve  Slope 

707 

TABLE  4. 


Propulsion  Vari 

Variable 

Global 

Number 

Bypass  Ratio 

65 

Compressor  Adiabatic  Efficiency 

198 

Design  Fan  Presstxre  Ratio 

310 

Engine  Face  Diameter  (ft) 

189 

Fan  Adiabatic  Efficiency 

199 

Nozzle  Velocity  Coefficient 

522 

Number  of  Engines 

196 

Outer  Compressor  Pressure  Ratio 

336 

Overall  Compressor  Pressure  Ratio 

337 

ThrustAVeight  Ratio  at  Take-off 

516 

Turbine  Adiabatic  Efficiency 

200 

Turbine  Inlet  Temperature  (deg  R) 

517 

TABLES. 


Weights  Varices 

v;  VaiiaWe. . 

tjUdbid 

Number 

Total  Aircraft  Weight 

585 

Wei^t  of  Ammunition 

536 

Weight  of  Bombs 

540 

Weight  of  Missiles 

676 

IV.  AIRCRAFT  GEOMETRY 


A.  OVERVIEW 

The  Geometry  Module  is  used  to  define  the  physical  dimensions  of  the 
proposed  aircraft.  Inputs  are  made  in  nine  areas:  wing,  strakes,  horizontal 
and  vertical  tails,  canards,  wing  mounted  pods,  fuselage  mounted  pods, 
fuselage,  crew  station  and  fuselage  tanks.  Of  these  nine,  only  three  (wing,  pods 
and  fuselage)  are  required  (either  fuselage  mounted  pods  or  wing  mounted 
pods  must  be  selected).  CREATE  will  insure  that  the  required  items  are 
completed. 

B.  WING  GEOMETRY 

Two  types  of  wings  may  be  selected:  symmetric  or  oblique.  Variable 
sweep  wings  may  be  entered  using  the  symmetric  wing  type.  The  wing 
planform  in  either  case  must  be  trapezoidal.  The  available  variables  are: 

•  Wing  Aspect  Ratio  (to  the  aircraft  centerline). 

Default:  5.0,  Range:  (0.0,12.0],  Type:  Real 

•  Wing  reference  area  (ft^).  This  is  the  total  area  of  the  wing,  including  the 

area  covered  by  the  fuselage. 

Default:  500.0,  Range:  >  0.0,  Type-  Real 

•  Wing  dihedral  (in  degrees),  measured  positive  up  from  the  horizontal. 

Negative  values  refer  to  anhedral. 

Default:  0.0,  Range:  [-20.0,20.0],  Type:  Real 
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*  The  fuel  density  of  the  wing  fuel  (in  Ibs/fl®)  (JP-4  is  48.62) 

Default:  48.62,  Range:  >  0.0,  Type:  Real 

*  Fraction  of  the  wing  chord  that  is  covered  by  leading  edge  flaps/slats. 

(  0.12  B  12%  of  the  total  wing  diord  consists  of  leading  edge  flaps). 
Enter  0.0  if  there  are  no  leading  edge  devices. 

Default:  0.12,  Range:  [0.0,  0.5],  Type:  Real 

*  Leading  edge  sweep  angle  (in  degrees)  (only  for  symmetric  wing).  Input 
a  negative  value  for  a  forward  sweep. 

Default:  0.0,  Range:  [-30.0,  60.0],  Type:  Real 

*  Wetted  area  multiplier  (how  mudi  of  the  wing  is  exposed,  1.0  =  fully 
exposed  wing). 

Default:  1.0,  Range:  (0.0,  2.0],  T}^:  Real 

*  Wing  taper  ratio. 

Default:  0.99,  Range:  [0.0,  1.0],  Type:  Real 

*  Thickness  to  chord  ratio  at  the  wing  root. 

Default:  0.1,  Range:  [0.02,  0.18],  Type:  Real 

*  Thickness  to  chord  ratio  at  the  wing  tip. 

Default:  0.1,  Range:  [0.02,  0.18], 

*  Fraction  of  the  total  wing  chord  that  is  covered  by  trailing  edge  flaps. 
Trailing  edge  flaps  are  assiuned  to  be  double-segmented  Fowler  flaps. 
Default:  0.12,  Range:  [0.0,  0.5],  Type:  Real 

*  Fraction  of  the  available  wing  volume  that  will  be  filled  with  wing  fuel 
(0.5  B  50%  of  the  wing  volume  will  have  fuel  in  it). 

Defatjdt:  1.0,  Range:  [0.0, 1.0],  IVpe:  Real 

*  Position  of  the  wing  quarter  chord,  given  as  a  fraction  of  total  fuselage 
length  (for  a  50’  fuselage,  wing  quaxlrn:  chord  at  20’  equates  to  20/50b0.4, 
as  measured  firom  the  nose). 

Default:  0.5,  Range:  [0.0, 1.0],  Type:  Real 
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•  Elevation  of  the  root  chord  of  the  wing  above  the  fuselage  reference  plane, 
given  as  a  fraction  of  the  maximum  fuselage  radius. 

0.0  s  the  wing  is  mounted  on  the  middle  of  the  fuselage 
1.0  s  the  wing  is  mounted  on  top  of  the  fuselage 
-1.0  B  the  wing  is  mounted  on  the  bottom  of  the  fuselage. 

Default:  0.0,  Range:  [-1.0,  1.0],  IVpe:  Real 


C.  STRAKE  GEOMETRY 

Leading  edge  and/or  trailing  edge  strakes  may  be  selected.  Strakes  are 
the  only  method  available  that  vdll  modify  the  straight  leading  edge  or  trailing 
edge  of  the  wing.  If  only  LE  or  TE  strakes  are  present,  set  the  values  for  the 
strake  that  is  not  present  to  0.0.  If  the  strakes  are  not  positioned  correctly 
relative  to  the  wing,  a  non-fatal  warning  will  be  printed  out.  The  available 
variables  are: 


•  Location  of  the  strake  leading  edge  on  the  fuselage,  as  a  fraction  of  the 
total  fuselage  length  measured  from  the  fuselage  nose. 

Default:  0.0,  Range:  [0.0,  Wing  LE],  Tyx)e:  Real 

•  Ratio  of  the  leading  edge  strake  8pan/2  to  the  wing  span/2. 

Default:  0.0,  Range:  [0.0, 1.0].  Type:  Real 

•  Location  of  the  strake  trailing  edge  as  a  fraction  of  the  total  fuselage 
length,  measured  from  the  fuselage  nose. 

Default:  0.0,  Range:  [Wing  LE,  1.0] 

•  Ratio  of  the  trailing  edge  strake  span/2  to  the  wing  span/2). 

Default:  0.0,  Range:  [0.0,  1.0],  T^^pe:  Real 

•  Wetted  area  multiplier  for  the  strake(s). 

Default:  1.0,  Range:  [0.0,  2.0],  Type:  Real 
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•  Strake  leading  edge  bluntness  indicator 
0  «  sharp  leading  edge 
1  s  blunt  leading  edge 
Default:  0,  Range:  0  or  1,  Type:  Integer 


D.  HORIZONTAL  AND  VERTICAL  TAIL  GEOMETRY 

Only  conventional  tail  surfaces  are  supported.  V-tails  or  canted  vertical 
stabilizers  can  not  be  entered  in  this  version  of  ACSYNT.  While  not  required, 
if  a  vertical  tail  is  not  used,  ACSYNT  will  crash  during  printout  of  the  final 
summary  section.  This  crash  will  not  affect  the  aircraft  calculations.  The 
available  variables  are: 


•  Aspect  ratio  (to  the  fuselage  centerline). 

Default:  5.0,  Range:  (0.0,  12],  Type:  Real 

•  Reference  area  (ft*).  If  the  area  is  set  at  0.0,  ACSYNT  will  size  the 
surface  area  based  on  the  value  for  the  horizontal  tail  sizing  fraction,  if 
given  ( Tail  area  »  wing  area  times  the  sizing  firaction).  If  the  horizontal 
tail  sizing  firaction  is  set  to  0.0,  the  tail  will  be  sized  using  the  volume 
coefficient. 

Default:  60.0,  Range:  >  0.0,  I^pe:  Real 

•  HorizontalA^ertical  tail  volume  coefficient.  Used  only  when  the  horizontal 
tail  sizing  firaction  is  set  to  0.0  and  the  area  is  input  as  0.0. 

Default:  1.0,  Range:  [0.3, 1.0],  Type:  Real  (Hor.  Tail) 

Default:  0.6,  Range:  [0.01,  0.2],  Type:  Real  rVer.  Tail) 

•  HorizontalA^ertical  tail  sizing  firaction.  If  set  to  0.0,  the  horizontal  tail  is 
sized  using  the  voltime  coefficient. 

Default:  0.0,  Range:  [0.0,  1.0],  Type:  Real 


Leading  edge  sweep  (in  degrees). 

Default:  0.0,  Range:  [-9.0,  60.0],  Type:  Real 


•  Wetted  area  mtdtiplier. 

Defaidt:  1.0,  Range:  [0.0,  2.0],  Type:  Real 

•  Taper  ratio. 

Default:  0.99,  Range:  [0.0, 1.0],  Ts^pe:  Real 

•  Thickness  to  chord  ratio  at  the  root. 

Default:  0.1,  Range:  [0.02,  0.18],  lype:  Real 

•  Thickness  to  chord  ratio  at  the  tip. 

Default:  0.1,  Range:  [0.02,  0.18],  l^pe:  Real 

•  Location  of  the  trailing  edge  of  the  horizontal/vertical  tail,  as  a  fraction 
of  the  total  fuselage  length,  measured  from  the  nose. 

Default:  1.0,  Range:  [0.5,  1.0],  Type:  Real 

•  Elevation  of  the  horizontal  tail  on  the  fuselage. 

-1.0  to  0.99  s  horizontal  tail  is  mounted  on  the  fuselage. 

1.0  to  1.99  s  horizontal  tail  is  motmted  on  the  vertical  tad. 

2.0  a  horizontal  tad  is  mounted  on  top  of  the  vertical  tad  (T-tad) 
Defatdt:  0.0,  Range:  [-1.0,  2.0],  Typ®*  ^&1 

•  Elevation  of  the  root  chord  of  the  vertical  tad  as  a  fraction  of  the 
maximum  fuselage  radius,  measured  up  from  the  fuselage  reference 
plane. 

Defa\dt:  0.0,  Range:  [-1.0, 1.0],  Type*  Real 

•  Number  of  vertical  tails 
1.0  a  one  central  tad 

2.0  a  two  symmetric  tads 

3.0  a  two  symmetric  tads  with  1  central  tad 

Default:  1.0,  Range:  1.0  or  2.0  or  3.0,  Type:  Real 

•  Sizing  logic.  If  equal  to  true,  then  the  tad(s)  wdl  be  resized  on  every 
ACSYNT  iteration.  If  this  is  set  to  false,  the  input  value  for  the  area  wdl 
be  used  regardless  of  the  values  used  for  the  sizing  fraction  or  the  volume 
coefficient. 

Default:  F,  Range:  T  or  F,  Type:  Logical 


25 


E.  CANARD  GEOMETRY 


Canards  may  be  used  as  a  control  surface  or  as  a  third  lifting  surface. 
The  available  variables  are: 


*  Aspect  Ratio. 

Default;  5.0,  Range;  (0.0,  12.0],  IVpe:  Real 

*  Reference  area  (ft^).  If  this  is  set  to  0.0,  the  canard  will  be  sized  using 
the  canard  sizing  fraction,  if  given  (Canard  area  —  wing  area  times  aiding 
fraction).  If  the  canard  sizing  fraction  is  0.0,  the  canard  will  be  sized 
using  the  volume  coefficient. 

Default:  50.0,  Range;  >  0.0,  T^pe;  Real 

*  Canard  volume  coefficient.  (This  should  be  negative  since  the  canards  are 
in  frnnt  of  the  wing).  Used  only  if  the  sizing  fraction  is  0.0. 

Default:  -0.8,  Range:  [-1.0,  0.0],  TyP®‘ 

*  Canard  sizing  fraction.  If  0.0  is  entered,  the  canard  will  be  sized  using 
the  volume  coefficient. 

Default:  0.0,  Range:  [0.0, 1.0],  IVpe:  Real 

*  Leading  edge  sweep  (degrees). 

Default:  0.0,  Range:  [-9.0,  60.0],  Type:  Real 

*  Wetted  area  multiplier. 

Default:  1.0,  Range:  (0.0,  2.0],  Type:  Real 

*  Taper  ratio. 

Default:  0.99,  Range:  [0.0, 1.0],  T)^:  Real 

*  Thickness  to  chord  ratio  at  root. 

Default:  0.1,  Range:  [0.02,  0.18],  Type:  Real 

*  Thickness  to  chord  ratio  at  tip. 

Default:  0.1,  Range:  [0.02,  0.18],  Type:  Real 

*  Location  of  the  leading  edge  of  the  canard  root  chord  as  a  fraction  of  total 
fuselage  length. 

Default:  0.0,  Range:  [0.0,  0.5],  Type:  Real 
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•  Elevation  of  the  canard  above  the  fuselage  reference  plane  as  a  fraction 
of  mflyimiim  hiselage  radius. 

1.0  s  top  mounted  canard 
-1.0  s  bottom  mounted  canard 
Default:  0.0,  Range:  [-1.0,  1.0],  T3T)e:  Real 

•  Canard  location 

1  s  canard  on  the  central  body 

2  s  canard  is  outboard  of  twin  nacelles  (fuselage  inlets) 

Default:  1,  Range:  1  or  2,  IVpe:  Integer 

•  Sizing  logic.  If  equal  to  true,  then  the  canards  will  be  resized  on  every 
ACSYNT  iteration.  If  equal  to  false,  the  input  value  for  the  area  will  be 
used. 

Default:  F,  Range:  T  or  F,  Type:  Logical 


F.  WING  MOUNTED  ENGINE  PODS 

Either  wing  pods  or  fuselage  pods  must  be  selected.  The  number  of  pods 
should  equal  the  number  of  engines  on  the  aircraft.  Up  to  ten  pods  may  be 
defined.  The  available  variables  are: 


•  Pod  Diameter  (ft).  If  set  equal  to  0.0,  the  engine  diametm*  will  be  used. 
Default:  3.0,  Range:  (0.0,  30.0],  Type:  Real 

•  Pod  Length  (ft).  If  set  to  0.0,  the  engine  length  will  be  used. 

Default:  10.0,  Range:  (0.0,  40.0],  l^pe:  Real 

•  X  location  of  the  nose  of  the  pod  relative  to  the  wing  leading  edge,  given 
as  a  fraction  of  the  local  wing  chord.  (Fig  2).  Negative  values  indicate 
that  the  pod  leading  edge  is  ahead  of  the  wing  leading  edge. 

Default:  0.0,  Range:  [-1.0,  1.0],  IVpe:  Real 

•  Y  location  of  the  center  of  the  pod  relative  to  the  fuselage  centerline, 
given  as  a  fraction  of  the  wing  semi-span.  (Fig  2). 

Default:  0.5,  Range:  [0.0,  1.0],  Type:  Real 
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•  Z  location  of  the  center  of  the  pod  above  the  wing,  as  a  fraction  of 
maximum  pod  diameter.  (Fig  2).  Negative  values  indicate  that  the  pod 
center  is  below  the  wing. 

Default:  -1.0,  Range:  [-2.0,  2.0],  Type:  Real 

•  Wing  Pod  symmetry  code. 

0  m  pod  has  a  symmetric  image  on  the  other  wing 
1  s  pod  does  not  have  an  image 
Default:  0,  Range:  0  or  1,  Type:  Integer 

G.  FUSELAGE  MOUNTED  PODS 

Either  wing  motmted  pods  or  fuselage  mounted  pods  must  be  selected. 
The  total  number  of  pods  must  match  the  number  of  engines  on  the  aircraft. 
Up  to  10  pods  may  be  defined.  The  available  variables  are: 


•  Fuselage  pod  diameter  (ft).  If  set  to  0.0,  the  engine  diameter  will  be  used. 
Default:  3.0,  Range:  (0.0,  30.0],  Type:  Real 

•  Fuselage  pod  length  (ft).  If  set  to  0.0,  the  engine  length  will  be  used. 
Default:  10.0,  Range:  (0.0,  40.0],  I^pe:  Real 

*  Stand-off  distance;  the  distance  between  the  pod  wall  and  the  fuselage, 
given  as  a  fraction  of  maximum  pod  radius. 

0.0  ■  Pod  is  tangent  to  the  fuselage 
-1.0  «  Pod  is  half-way  submerged  into  the  fiiselage 
-2.0  «  Pod  is  fully  submerged  into  the  fuselage 
Default:  0.1,  Range:  [-2.0,  3.0], 

*  Angular  orientation  of  pod  measured  positive  up  from  the  horizontal  (in 
degrees)  (Fig  3). 

90.0  >  12  O’clock  position 
-90.0  m  6  O’clock  position 
Defatilt:  0.0,  Range:  [-90.0,  90.0],  Type:  Real 
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I  In* 


Figure  2.  Wing  Pod  Geometry 
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•  X  location  of  the  pod  nose  relative  to  the  nose  of  the  fuselage,  given  as  a 
fraction  of  total  fuselage  length. 

Default;  0.8,  Range;  [0.0,  1.0],  Type;  Real 

•  Fuselage  Pod  Gfymmetry  code. 

0  K  Pod  has  an  image  on  the  other  side 
1  «  Pod  does  not  have  an  image 
Default;  0,  Range;  0  or  1,  Type;  Real 


H.  FUSELAGE  GEOMETRY 

This  section  is  required.  ACSYNT  models  the  aircraft  fuselage  with  a 
cone  for  the  nose  and  afterbody  and  a  cylinder  for  the  main  body.  The 
available  variables  are; 


•  Maximum  diameter  of  fuselage  (ft). 

Default;  6.0,  Range;  >  0.0,  Type;  Real 

•  Fuselage  length  (it). 

Default;  50.0,  Range;  >  0.0,  Tjrpe;  Real 

•  Diameter  of  radar  dish  located  in  the  nose  (ft)  (Enter  0.0  if  there  is  no 
radar). 

Default;  0.0,  Range;  [0.0,  20.0],  Type;  Real 

•  Fineness  ratio  of  the  afterbody  (length/diameter). 

Default;  2.0,  Range;  [0.0,  99.99],  Type;  Real 

•  Total  fuselage  fineness  ratio  (length/diameter)  (If  0.0  is  entered, 
ACSYNT  will  estimate  it  using  fuselage  length  divided  by  maximum 
fuselage  diameter). 

Default;  0.0,  Range;  [0.0,  99.99],  Type;  Real 

•  Fineness  ratio  of  the  nose  (length/diameter).  *Note*  Small  changes  in 
this  variable  results  in  significant  changes  in  the  gross  weight. 

Default;  3.0,  Range;  [0.0,  99.99],  Type;  Real 
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*  Length  of  radar  equipment  located  behind  the  radar  (it). 

Default:  0.0,  Range:  [0.0,  30.0],  Type:  Real 

*  Siu-face  area  complexity  factor.  The  fuselage  is  modeled  by  using  a  cone 
for  the  nose  and  afterbody,  and  a  cylinder  for  the  mid-section.  If  the 
surface  area  will  be  greater  or  less  than  this,  it  may  be  altered  with  this 
variable. 

1.0  s  satisfactory  model 

1.1  s  add  10%  more  siuface  area 

Defardt:  1.0,  Range:  [0.0,  2.0],  Type:  Real 

*  Fuselage  wall  thickness  (ft)  (For  transports  only). 

Default:  0.0,  Range:  [0.0,  1.0],  Type:  Real 

*  An  estimate  of  the  fuel  weight  required  for  the  mission.  This  will  be  the 
first  estimate  that  ACSYNT  uses  to  fly  the  mission. 

Default:  5000.0,  Range:  [0.0,  9000000.00],  Type:  Real 

*  Tail  indicator. 

0  s  standard  engine  nozzle  at  rear  of  fuselage 
1  s  fuselage  tapers  down  without  a  nozzle 
Default:  0,  Range:  0  or  1,  Type:  Integer 


I.  CREW  STATION 

This  is  used  only  to  document  the  existence  of  a  cockpit.  It  will  not  affect 
the  fuselage  dimensions.  The  available  variables  are: 


•  Length  of  crew  compartment  (ft).  If  0.0  is  entered,  ACSYNT  will 
attempt  to  size  it. 

Default:  0.0,  Range:  [0.0,  30.0],  Type:  Real 

•  Width  of  crew  compartment  (ft).  0.0  may  also  be  used  here. 

Default:  0.0,  Range:  [0.0,  20.0],  TVpe:  Real 

•  Number  of  crew  members. 

Default:  2,  Range:  [0,  6],  Type:  Integer 
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•  Seating  arrangement 
T  «  Tandem 
F  s  2  abreast  seating. 

Default:  F,  Range:  T  or  F,  Type:  Logical 


J.  FUSELAGE  FUEL  TANKS 

One  or  two  fuselage  fuel  tanks  may  be  specified.  If  two  tanks  are  desired, 
the  fuselage  fuel  load  will  be  split  equally  between  the  two  tanks.  There  is 
only  one  input: 


•  Fuel  Density  (Ibs/ft*).  JP-4  repr^ents  the  default  value. 
Defaiilt:  48.62,  Range:  >  0.0,  Type:  Real 
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V.  TRAJECTORY  MODULE 


A.  OVERVIEW 

The  Trajectory  Module  is  used  to  define  a  mission  for  the  aircraft.  It 
serves  as  the  cornerstone  for  the  design,  in  that  the  converged  aircraft  is 
optimized  to  the  input  mission.  Different  missions  may  or  may  not  be  satisfied 
by  the  converged  design. 

Up  to  twelve  legs  may  be  defined  for  a  given  mission,  using  six  different 
types  of  legs:  climb,  cruise,  acceleration,  combat,  descent  and  loiter.  Any 
number  of  these  six  leg  types  may  be  used  to  define  a  mission.  It  is  not 
necessaiy  to  use  a  strictly  logical  profile.  A  mission  may  consist  only  of  a 
cruise  leg,  if  so  desired,  without  any  climbs  or  descents.  A  typical  profile  is 
shown  in  Table  6.  Weapons  (bombs,  ammunition  or  missiles)  may  be  dropped 
only  during  a  combat  phase.  If  weapons  are  to  be  dropped,  the  weight  and 
drag  of  the  ordnance  is  removed  fi:om  the  aircraft  at  the  termination  of  the 
combat  phase. 

This  is  the  most  error  prone  part  of  ACSYNT.  Both  fatal  and  non-fatal 
errors  alike  occur  during  the  execution  of  the  Trajectory  Modiile,  but  these 
errors  are  not  always  caused  by  the  Trajectory  modiile.  Many  calls  are  made 
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to  the  Propulsion  and  Aerodynamics  modules  from  the  Trajectory  module  and 
errors  often  are  caused  by  these  two  modules. 

The  inputs  to  this  module  are  broken  up  into  two  parts.  The  first  part 
consists  of  three  menus  for  entering  variables.  The  second  part  is  used  for 
entering  the  mission  profile.  A  detailed  description  of  the  Trajectory  module 
of  ACSYNT  can  be  found  in  Reference  5. 

B.  TRAJECTORY  VARIABLES 

The  following  variables  are  required  for  input: 


•  Cruise  Mach  number. 

Default:  0.8,  Range:  (0.0,  3.0],  Type:  Real 

•  Design  load  factor  (g’s). 

Default:  3.0,  Range:  [1.0,  12.0],  Type:  Real 

•  Ultimate  load  factor  (g’s). 

Default:  4.5,  Range:  [1.0, 15.0],  Type:  Real 

•  Takeoff  obstacle  requirement 

0  B  military  aircraft  (50  ft  clearance) 

1  B  civilian  aircraft  (35  ft  clearance) 
Default:  0,  Range:  0  or  1,  Type:  Real 

•  Fuel  reserve,  as  a  fraction  of  total  fuel. 
Default:  0.05,  Range:  [0.0,  0.1],  Type:  Real 

•  Estimated  endurance  Mach  number. 
Default:  0.5,  Range:  [0.0,  2.0],  Type:  Real 

•  Maximum  dynamic  pressure,  q  (Ibs/ft^). 
Default:  700.0,  Range:  >  0.0,  Type:  Real 
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•  Aircraft  range  (nm). 

Default:  1000.0,  Range:  >  0.0,  TyP^* 

•  Time  spent  during  warm<up  and  taxi  (min). 

Default:  5.0,  Range:  >  0.0,  Type:  Real 

•  Power  setting  dtiring  warm-up  and  taxi 

1  St  max  aftOTbumer 

2  s  military  power 

3  s  maximum  continuous  power 

4  s  thrust  equals  drag 

5  s  idle 

Default:  5,  Range:  [1,  5],  Type:  Integer 

•  Time  spent  during  take-ofif  (min). 

Default:  1.0,  Range:  >  0.0,  Type:  Real 

•  Power  setting  during  take-ofif  (same  as  above). 

Default:  2,  Range:  [1,  5],  Type:  Integer 

•  Breguet  altitude  search  indicator  (used  during  cruise  and  climb  phases 
of  the  mission  profile.  If  selected,  ACSYNT  will  attempt  to  find  the 
optimum  cruise  altitude). 

0  «  no  search 

1  K  search  for  optimum  altitude 
Default:  0,  Range:  0  or  1,  Type:  Integer 

•  Loiter  altitude  search  indicator  (iised  during  loiter  phases).  If  selected, 
ACSYNT  wiU  attempt  to  find  the  optimum  loiter  altitude. 

0  SB  no  search 

1  s  search  for  loiter  altitude 
Default:  0,  Range:  0  or  1,  Type:  Integer 

•  Estimate  of  total  internal  fuel  weight  (lbs). 

Default:  5000.0,  Range:  (0.0,  999999.0],  Tyi)e:  Real 

•  Amount  of  external  fuel  (drop  tanks)  (lbs). 

Default:  0.0,  Range:  [0.0,  99999.0] 

•  Weight  of  trapped  fuel  (this  is  the  weight  of  any  unusable  fuel)  (lbs). 
Default:  100.0,  Range:  0.0,  1000.0],  Type:  Real 
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•  Engine  sizing  flag.  Used  in  cozyunction  wiUi  the  Propulsion  Module.  The 
engine  will  only  be  sized  if  the  engine  weight,  length  and  diameter  are  all 
input  as  0.0  in  the  Propulsion  module. 

0  «  engine  sized  for  thrust/weight  at  take-off,  no  AB 
-1  ae  engine  sized  for  thrust/weight  at  take-off  with  AB 
-2  «  engine  sized  for  a  given  thrust  with  AB 
-3  B  engine  sized  for  a  given  thrust,  no  AB 
Default:  -3,  Range:  [-3,  0],  Type:  Integer 

•  Number  of  trzdectoiy  cruise  phases  (see  below). 

Default:  2,  Range:  [0, 12],  TVpe:  Integer 

•  Total  number  of  trsgectory  phases  (see  below). 

Default:  1,  Range:  [0, 12],  Type:  Integer 

•  Debug  print  option. 

0  s  No  Debug 

1  B  Debug 

Default:  0,  Range:  0  or  1,  T^pe:  Integer 


C.  MISSION  PROFILE 

Information  that  is  required  to  define  a  mission  includes  the  phase 
starting  and  ending  Mach  number,  starting  and  ending  altitude  (ft),  the 
distance  traveled  (nm),  the  time  used  during  that  phase  (min),  the  g  loading 
(for  a  combat  phase)  and  the  power  setting  for  that  phase.  A  sample  mission 
is  shown  in  Table  6  below.  Note  that  the  climb  and  descent  phases  do  not  vise 
the  Mach  number,  distance  or  time  blocks.  Only  the  starting  and  ending 
altitudes  are  required.  It  is  also  permissable  to  skip  a  climb  or  descent  phase 
and  input  another  cruise  phase  with  a  new  altitude.  The  distance  covered 
during  a  climb  or  descent  phase  (the  distance  is  computed  internally)  is  not 


36 


subtracted  from  a  following  cruise  phase.  The  distance  block  for  the  loiter 
phase  represents  the  loiter  radius. 


TABLE  6.  Sample  Mission  Profile 


Mach 

Mach 

Alt 

Alt 

Horia 

Power 

Phase 

-  -Start ■ 

End 

Start 

End 

Dist 

:y-..-;:TlmiS 

Setting 

Climb 

0.00 

0.00 

100 

3 

Cruise 

mm 

wm 

20000 

480 

mm 

4 

Cruise 

0.70 

0.70 

200 

200 

210 

30.0 

4 

Accel 

0.70 

0.90 

200 

200 

1.0 

2 

Combat 

mem 

200 

200 

0 

4.0 

2 

Cruise 

0.70 

0.70 

200 

-1 

210 

30.0 

4 

Climb 

0.00 

0.00 

200 

20000 

0.0 

0.0 

3 

Descent 

mm 

0.00 

20000 

500 

5 

Loiter 

0.20 

5000 

5000 

10.0 

20.0 

4 

As  fuel  is  burned  during  a  cruise  phase,  the  aircraft  will  climb  as  the 
weight  is  burned  off.  To  prevent  this,  a  ”-l"  should  be  entered  as  an  ending 
altitude  (note  that  this  is  an  integer  value).  This  forces  the  ending  altitude  to 
match  the  starting  altitude. 

During  combat  phases,  an  option  is  given  to  input  the  sustained  g 
loading.  If  the  design  cazmot  sustain  the  input  value,  ACSYNT  will  reduce  it 
until  it  can  be  sustained  (P,  s  0.0). 
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The  "power  setting"  options  are 


•  Is  maximiun  afterburner 

2  B  militazy  power 

3  S  mfl-rimiim  continuous 

4  B  thrust  equals  drag 

5  b  idle 
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VI.  AERODYNAMICS  MODULE 


A.  OVERVIEW 

The  Aerodynamics  module  will  determine  the  aircraft  drag,  induced  drag 
and  lift  as  a  function  of  the  angle  of  attack.  The  aircraft  minimum  drag  is 
calculated  through  component  build-up.  The  drag  for  individual  components 
is  determined  and  then  summed  to  determine  the  total  drag  at  a  given  Mach 
number.  Hie  total  drag  consists  of:  friction  drag,  wave  drag,  leading  edge 
blimtness  drag,  external  stores  drag,  weapons  and  bomb  drag,  engine  cowl 
drag,  engine  boat-tail  drag  and  interference  drag  [Ref  2;p.  131].  Detailed 
information  about  the  aerodynamic  methods  may  be  found  in  Reference  4.  The 
code  has  been  validated  up  to  Mach  3.0  by  NASA-AMES. 

B.  AERODYNAMICS  INPUT 

CREATE  uses  8  separate  pages  to  input  the  aerodynamic  characteristics 
of  the  design.  The  available  variables  are: 

•  Ratio  of  body  base  area  to  mfiirimiiTn  body  cross-section.  This  term  is 
used  to  accoimt  for  separation  drag  on  the  rear  of  the  body.  The  base 
area  is  any  rearward-facing  blunt  surface. 

Default:  0.15,  Range:  [0.0,  0.5],  Typ®- 

•  Angle  of  attack  at  which  Cj,  max  occurs  (deg) 

Default:  35.0,  Range:  (0.0,  60.0],  Type:  Real 
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*  Maximum  angle  of  attack  for  subsonic  compressibility  or  interference 
(deg). 

Default:  40.0,  Range:  (0.0,  60.0],  I^pe:  Real 

*  Width  of  the  fuselage  at  the  canards  (if  used)  or  of  the  nose.  Used  in 
calculating  the  fuselage  pitching  moment  contribution. 

Default:  max  fu^lage  diameter.  Range:  >  0.0,  l^pe:  Real 

*  Boat-tail  exposure  factor  (for  use  with  pods).  If  4  pods  were  defined  but 

2  of  them  are  half  in  the  fuselage  then  the  boat-tail  exposure 

factor  is  0.75.  (Number  of  exposed  pods/total  number  of  pods). 
Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Ci,  max  scaling  factor  for  clean  aircraft. 

Default:  1.0,  Range:  >  0.0,  Typ«:  Keal 

*  Laminar-Turbulent  skin  firiction  weighting  factor. 

0.0  «  All  lanodnar  flow 

1.0  *  All  turbulent  flow 

Default:  1.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Reference  Mach  number  array.  Used  with  the  following  5  variables.  This 
is  an  array  of  up  to  10  numbers.  Each  of  the  following  5  variables  must 
have  the  same  number  of  values  (i.e.  if  enter  7  numbm«  are  input  here, 
7  numbers  should  be  input  for  the  other  variables).  The  terms  in  the 
array  correspond  1  to  1  with  the  terms  in  the  5  following  arrays.  See  the 
examples  section  for  additional  insight. 

Default:  0.0,  Range:  [0.0,  3.0],  Type:  Real 

*  Cl  at  zero  angle  of  attack  for  the  fiiselage.  This  is  an  array  of  up  to  10 
values  that  corresponds  1:1  with  the  reference  Mach  number  array  above. 
Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Canard  C^,  at  zero  angle  of  attack.  This  is  an  array  of  up  to  10  values 
that  corresponds  1:1  with  the  reference  Mach  munlW  array  above. 
Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Wing  Cl  at  zero  angle  of  attack.  This  is  an  array  of  up  to  10  values  that 
corresponds  1:1  with  the  reference  Mach  number  array  above. 

Default:  0.0,  Range:  [0.0,  1.0],  Type:  Real 
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*  Wing  zero-lift  pitching  moment.  This  is  an  array  of  up  to  10  values  that 
corresponds  1:1  with  the  reference  Mach  number  array  above. 

Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Sweep  angles  for  a  variable  sweep  wing  (deg).  This  is  an  array  of  up  to 
10  values  that  corresponds  1:1  with  the  reference  Mach  number  array 
above.  Ihese  values  are  not  used  if  the  normal  Mach  number  calculation 
code  (below)  is  set  to  0. 

Default:  0.0,  Range;  [0.0,  60.0], 

*  Variable  sweep  wing  flag. 

T  s  Wing  is  variable  sweep/oblique 
F  «  Wing  is  not  variable  sweep 
Default:  F,  Range:  T  or  F,  Tjrpe:  Logical 

*  Normal  Mach  number  calculation  code,  (swept/oblique  wings) 

0  s  Acsynt  will  sweep  the  wing  to  keep  the  normal  component  of  the 
Ma<^  number  constant  at  all  times. 

1  SB  Do  not  calculate  the  normal  component. 

Default:  1,  Range:  0  or  1,  Tsrpe:  Real 

*  Desired  normal  component  of  the  Mach  number.  Used  only  if  the  normal 
Mach  number  calculation  code  above  is  set  to  0. 

Default:  0.75,  Range:  (0.0,  3.0],  ^al 

*  Maximum  wing  sweep  for  the  normal  Mach  number  calculations.  Used 
only  if  the  normal  Mach  number  calculation  code  above  is  set  to  0. 
Default:  60.0,  Range:  [0.0,  60.0],  Type:  Real 

*  Minimum  wing  sweep  for  the  normal  Mach  number  calculations.  Used 
only  if  the  normal  Mach  number  calculation  code  above  is  set  to  0. 
Default:  0.0,  Range:  [0.0,  60.0],  IVpe:  Real 

*  Wing  airfoil  section  code. 

1  as  Sharp  or  near  sharp  airfoils 

2  «  230-XX  and  00-XX  airfoils 

3  s  6-series  airfoil 

4  s  Whitcomb  supercritical  airfoil 

5  s  Leading  edge  radius  to  chord  ratio  specified 

If  the  aspect  ratio  is  less  than  1.75,  this  code  is  ignored  and  low-aspect 
ratio  theory  is  used.  Only  code  1  gives  a  smooth  drag  polar.  Other  codes 
may  have  breaks  in  the  drag  polars  at  high  angles  of  attack  and  in 
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transonic  regions 

Default:  1,  Range:  [1,  5],  Type:  Integer 

•  Leadii^  edge  radius  to  chord  ratio,  used  with  code  5  above. 

Default:  0.02,  Range:  [0.0,  0.5],  T^e:  Real 

•  Canard  airfoil  section  code.  Same  as  the  wing  airfoil  section  codes  above. 

•  Canard  leading  edge  radius  to  diord  ratio,  used  with  canard  airfoil 
section  code  5. 

Default:  0.02,  Range:  [0.0,  0.5],  Type:  Real 

•  Distance  between  the  outsides  of  the  twin  nacelles,  for  canard  placement 
(if  applicable). 

Default:  0.0,  Range:  >»  0.0,  Type:  Real 

•  Supercritical  wing  flag. 

1  a  Wing  is  supercritical 
0  a  Wing  is  not  supercritical 
Default:  0,  Range:  0  or  1,  Type:  Integer 

•  Body  cross-section  code. 

0  a  Circular  body 

1  a  Trapezoidal  body 

Default:  0,  Range:  0  or  1,  Type:  Real 

•  Cowl  exposure  factor.  Used  in  the  same  manner  as  the  boat-tail  exposure 
factor. 

Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

•  Friction  drag  multiplying  factor.  1.0  a  standard  roughness. 

Default:  1.0,  Range:  [0.0,  2.0],  Type:  Real 

•  Canard  angle  of  incidence  (used  for  trim  drag)  (deg). 

Default:  0.0,  Range:  0.0, 10.0],  Type:  Real 

•  Average  chord  of  flaps  (ft) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

•  Total  area  of  both  wing  flaps  (ft‘) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 
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*  Total  span  of  flaps  to  be  used  for  aircraft  trinuning  (ft)  (used  for  tailless 
aircraft) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Desired  location  of  the  CG,  given  as  a  fraction  of  wing  chord. 

Default:  0.25,  Range:  [0.0, 1.0],  Type:  Real 

*  Static  margin  for  the  CG  placement.  This  is  the  allowable  range  that 
the  CG  may  be  varied. 

Default:  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Height  of  CG  above  the  fuselage  centerline  (ft) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Horizontal  tail  angle  of  incidence  (deg). 

Default:  0.0,  Range:  [0.0,  10.0],  Type:  Real 

*  Mach  numbers  for  detailed  aerodynazmc  output,  mavimum  of  10  in  array 
format.  Corresponds  1:1  with  the  altitude  and  C^  arrays  below. 
Default:  0.0,  Range:  [0.0,  3.0],  Type:  Real 

*  Altitudes  for  detailed  aerodynamics  output  (ft),  maximum  of  10. 
Default:  0.0,  Range:  [0.0,  99999.0],  Type:  Real 

*  Lift  coefficients  for  detailed  output,  maximum  of  10. 

Default:  0.0,  Range:  [0.0,  8.0],  Type:  Real 

*  Total  drag  due  to  external  bombs  (ft‘) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Total  drag  due  to  external  stores  (ft‘) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Total  drag  due  to  drop  tanks  (ft‘) 

Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Total  drag  due  to  additional  items  (ft‘).  If  the  NAVY  module  is  being 
called,  enter  the  gear  down  drag  here. 

Default:  0.0,  Range:  >  0.0,  Type:  Real 
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*  Cl  max  to  be  used  during  landing.  If  -1.0  is  entered,  ACSYNT  will 
compute  this. 

Default:  -1.0,  Range:  -1.0  or  [0.0,  10.0],  T^pe:  Real 

*  Cl  max  to  be  used  for  take-off.  -1.0  may  be  entered  here  also. 

Default:  -1.0,  Range:  -1.0  or  [0.0, 10.0],  Type:  Real 

*  Trailing  edge  flap  angle  for  landing  (deg). 

Default:  45.0,  Range:  [0.0,  60.0],  T3T)e:  Real 

*  Trailing  edge  flap  angle  for  take-off  (deg). 

Default:  45.0,  Range:  [0.0,  60.0],  T}^:  Real 

*  Leading  edge  slat  angle  for  landing  (deg). 

Default:  30.0,  Range:  [0.0,  60.0],  Type:  Real 

*  Leading  edge  slat  angle  for  take-off  (deg). 

Default:  30.0,  Range:  [0.0,  60.0],  l^pe:  Real 

*  Lift  to  drag  ratio  for  landing.  -1.0  may  be  entered  to  let  ACSYNT 
compute  this. 

Default:  -1.0,  Range:  -1.0  or  >  0.0,  Type:  Real 

*  Lift  to  drag  ratio  for  take-off.  -1.0  xnay  be  entered. 

Default:  -1.0,  Range:  -1.0  or  >  0.0,  Type:  Real 


C.  STORES  DRAG  COMPUTATION 

Figure  4  is  an  example  of  an  external  stores  drag  computation  for 
ACSYNT.  Fifteen  stations  are  being  loaded  with  a  variety  of  weapons.  D/q  is 
the  drag  value  associated  with  each  weapon  or  laimcher  from  Table  7.  Tip 
mounted  missiles  are  assumed  to  create  no  drag  because  they  reduce  the 
induced  drag  for  the  wing.  The  moimt  modification  is  1.0  unless  it  is  a  corner 
mount,  and  then  it  is  0.8.  When  weapons  are  mounted  in  tandem  the  draft 
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modification  is  set  to  0.8  to  accoimt  for  the  drafting  effect.  This  example 
(Figure  4)  and  Table  7  are  taken  in  their  entirety  fi'om  Reference  3. 
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Example  Store  Drag  Determination 
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• 
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♦ 

LAU-114 

« 
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* 

2.14 

AIM-120 

0.195 

(2) 

0.390 

LAU-106 

0.150 
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(2) 

0.300 

Short  Pylon 

0.200 

Carriage 

(2) 

0.400 

3 

AGM-65 

0.330 

Comer 

1 

(1) 

0.330 

LAU-117 

0.200 

Tangent 

i 

(1) 

0.200 

Heavy  Pylon 

0.420 

Mount 

1 

T 

(1) 

0.420 

4.12 

MK-82R 

0.220 

0.80 

(12) 

2.112 

MER-10 

0.850 

1 

(2) 

1.700 

Heavy  Pylon 

0.420 

f 

(2) 

0.840 

5.6.10,11 

AIM-7 

0.225 

0.80 

0.80 

(4) 

0.576 

LAU-106 

0.150 

0.80 

0.80 

(4) 

0.384 

8 

600  Gal  Tank 

0.900 

(1) 

0.900 

Heavy  Pylon 

0.420 

(1) 

0.420 

7,9 

ALQ-71 

0.200 

(1) 
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13 

LANTIRN 

1.660 

(1) 

1.660 

Heavy  Pylon 

0.420 

(1) 

0.420 

Drag  area  « 

11.25ft*''2 

Figure  4.  Example  Stores  Drag  Problem  [Ref  3] 


TABLE  7.  Stores  Dr&e  Values  fRef  3] 


Comporwnt 


Rack  Reauired  I  Dia  I  Len  I  L/D  I  Weight 


Guided  Bomba 


GBU-8/B 


GBU-10/B 


GBU-24 


G6U-12/8 


GBU-11/B 


KMU-431/B 


GBU-15CWW 


G8U-15PWW 


GBU-15  Data  Pod 


Cluster  Bombs 


SUU-25A,  B,  C 


SUU-40,  44 


SUU-20/A 


SUU-64. 65. 66 


SUU-30H-B 


SUU-30B-B 


SUU-41B/A 


SUU-21 


SUU-42 


BL755 


VJ291 


JP233  HB876 


JP233  SG357 


Table  7.  (coat) 


STREBO 


Runway  Denial 


BAP-100 


Ourandal 


Chein/Puel  Bomba 


MK-12 


Bombs 


Mark-89  PB 


Mafk-81 


Mark-81 -R 


Mark-82 


Mark-82-R 


Mark-83 


Mark-83-R 


Mark-84 


Mark-84-R 


Mark-117 


Matk-117-R 


Mark-1 18 


Mark-1 16  A2 


Mark-30  E2 


Mark-20 


MLU-32 


Racks 


LAU-3C/A  -D/A  -61/A  -A/A  -69A  -A/A 


LAU-69A  -A/A 


LAU-3/A  -A/A 


LAU-60/A 


LAU-10/A 


LAU-32/A  S9A  Rocket  Pod 


LAU-34/A  lAQM-45 


TABLET,  (cont) 


LAU-68/A.  B 

9.8 

mm 

mm 

0.190 

UU-88/A 

Triple  Rail.  AGM-65 

0.990 

LAU-106 

AIM-7.  -120 

0.150 

LAU-114/A 

AIM-9 

0.090 

LAU-117 

Single  Rail.  AGM-65 

0.200 

LAU-118/A 

AGM-88 

0.170 

LAU-128/A 

AIM-9.  -120 

0.110 

LAU-5003/A 

15.7 

mm 

0.450 

TER-9 

0.350 

MER-5 

Multiple  Ejector  (5) 

0.750 

Multiple  Ejector  (4) 

— 

— 

0.600 

MER-10 

Multiple  Ejector  (61 

0.850 

BRU-26 

?I61 

1.250 

BRU-40 

Lo-Pro(ile  Ejector  (4) 

1.140 

BRU-40M 

Lo-Pro(ile  Ejector  (2) 

1.160 

FmI  Tanks 

300  Gatton 

24.0 

inT] 

mm 

0.530 

370  Gallon 

RTT] 

■EE 

0.550 

600  Gallon 

34.4 

mm 

0.900 

150  Gallon 

16.5 

165.0 

■EE 

0.270 

275  Gallon 

24.0 

210.0 

8.8 

0.480 

330  Gallon 

0.540 

ASAT 

ASAT  &  Pylon 

20.0 

10.8 

1.750 

Pylon  Only 

0.750 

-  Electronic  War 

ALQ-101.-2 

10.0 

10.1 

0.180 

ALQ-101-3.  -4 

10.0 

157.0 

15.7 

0.200 

ALQ-71.-176 

Fins 

10.0 

115.0 

11.5 

0.200 

ALQ-72 

ECU 

10.0 

mm 

ALQ-87 

ECU.  Fins 

10.5 

10.2 

0.2101 

ALQ-ei.-88 

10.0 

19.1 

ijmm 

ALO-31 

23.0 

8.0 

1000.0 

0.8601 

ALQ-1 19-12 

10.0 

KKfn 

mm 

-600 

ALQ-131 

17.5 

126.0 

Ito'B-WJ 

AN/ASQ-T11.-T13 

Pod 

1603 

AN/AWG-16 

10.0 

92.0 

mm 

Pave  Penny 

Includes  Pyton 

_ 

83.0 

0.060 

74x  AD204E 

Hardback  Beacon  Pod 

11.2 

36.0 

IKE 

78.0 

0.210 

Lantim  Target  Pod 

Includes  Pylon 

16.5 

990 

\wm 

-980-105 

0.720 

Lantim  Navigation  Pod 

Includes  Pylon 

19.1 

74.0 

3.9 

430.0 

0.940 
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vn.  PROPULSION  MODULE 


A.  OVERVIEW 

The  Propulsion  module  will  compute  the  on  and  ofif  design  characteristics 
of  a  turbcgot  or  turbofan  engine  using  cycle  analysis.  There  are  seven  main 
assumptions  used  during  the  calculations  [Ref  2:p.  163] 

•  Bypass  ratio  is  constant  at  design  value 

•  Compressor  operates  along  compressor  backbone  only 

•  The  turbine  is  assiuned  to  be  choked 

•  The  combustor  pressure  drop  is  constant 

•  Where  the  fan  and  outer  compressor  have  a  different  number  of  stages, 
the  fan  characteristics  are  scaled  from  outer  compressor  characteristics. 

•  Thermodynamic  properties  include  the  effects  of  fuel  addition  but  do  not 
include  Association. 

•  The  compressor  reference  point  equals  the  compressor  design  point. 

Six  engines  are  available  for  selection  and  the  one  that  most  closely 
matches  the  design  should  be  chosen.  Each  engine  has  an  associated  set  of 
default  variables.  If  the  engine  desired  is  not  one  of  the  default  engines, 
simply  alter  the  variables  to  suit  the  requirements.  Table  8  gives  the  default 
engines  and  their  default  values.  It  shotild  be  noted  that  not  all  values  are 
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given  for  each  engine.  Acceptable  ranges  for  some  of  the  engine  efficiencies 
may  be  found  in  Oates  [Ref  6:p.  224]. 


B.  PROPULSION  INPUTS 

There  are  seven  pages  of  available  variables  in  CRRATE.  Default  values 
shown  are  for  the  J*85  engine  where  applicable.  The  variables  are: 


•  Engine  diameter  (ft).  If  engine  diameter,  length  and  weight  are  all  0.0, 
ACSYNT  will  attempt  to  size  the  engine. 

Default;  1.365,  Range:  [0.0,  30.0],  T3rpe:  Real 

•  Engine  length  (ft) 

Default:  9.16,  Range:  [0.0,  60.0],  Type:  Real 

•  Engine  weight  (lbs). 

Default:  608.0,  Range:  [0.0, 100000.0],  Type:  Real 

•  Inner  turbine  flow  area  (ft‘)  (at  the  stator  position). 

Default:  0.242,  Range:  (0.0, 10.0],  IVpe:  Real 

•  Bypass  ratio. 

Default:  0.0,  Range:  [0.0,  30.0],  Type:  Real 

•  Engine  face  diameter  (ft) 

Default:  1.365,  Range:  [0.0,  30.0],  Type:  Real 

•  Nozzle  fineness  ratio  (nozzle  length/nozzle  max  diameter). 

Default:  0.0,  Range:  >  0.0,  T^pe:  Real 

•  Cowl  fineness  ratio  (cowl  length/cowl  max  diameter). 

Default:  0.0,  Range;  >  0.0,  T^pe:  Real 

•  Engine  hub/tip  ratio. 

Default:  0.6,  Range:  (0.0,  1.0],  Type:  Real 

•  Fuel  heating  value  (BTU/lb,„)  (JP-4  =  18600.0) 

Default:  18600.0,  Range:  [14000.0,  55000.0],  T3rpe:  Real 
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Scaling  factor  for  inlet  capture  area  (1.0  s  capture  area  equals  inlet  area). 
Default:  1.0,  Range:  [0.5, 1.5],  Type:  Real 


•  Engine  percent  corrected  airflow. 

Default*  100.0,  Range:  [50.0, 150.0],  Type:  Real 

•  Maximum  nacelle  diameter  factor  (1.0  s  nacelle  diameter  equals  engine 
diameter). 

Default  1.15,  Range:  [1.0,  2.0],  Type*  Real 

•  Total  nacelle  length  factor  ( 1.0  s  nacelle  length  equals  engine  length). 
Default  2.0,  Range:  [1.0,  3.0],  Type:  Real 

•  Engine  face  mach  number. 

Default:  0.6,  Range:  (0.0,  2.0],  Type:  Real 

•  Distance  between  the  nozzle  centerlines  divided  by  the  nozzle  diameter 
(this  accounts  for  interference  drag  due  to  multiple  nozzles).  Use  1.0  for 
one  engine. 

Default  1.0,  Range:  >s  1.0,  Type:  Real 

•  Nozzle  velocity  coefficient  (accoimts  for  incomplete  expansion  and  other 
losses). 

Defaidt  0.98,  Range:  [0.6, 1.0],  Type:  Real 

•  Cooling  airflow/primary  airflow  ratio. 

Default:  0.0,  Range:  [0.0,  0.2],  Type:  Real 

•  Year  of  engine  installation.  Used  when  ACSYNT  sizes  the  engine  (i.e. 
length,  weight  and  diameter  are  all  0.0) 

Default:  63.0,  Range:  None,  Type:  Real 

•  Engine  thrust  with  afterburner  at  sea-level  (the  engine  sizing  flag  in  the 
Tngectory  Module  should  be  set  to  -2). 

Default:  4080.0,  Range:  [0.0,  999999.0],  Type:  Real 

•  Engine  thrust  without  afterbximer  at  sea-level  (the  engine  sizing  flag  in 
the  Tnqcctory  module  shoxild  be  set  to  -3). 

Default:  2720.0,  Range:  [0.0,  999999.0],  Type:  Real 
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•  Thrust/weight  ratio  at  take-off  (the  engine  sizing  flag  in  the  Trajectory 
Module  should  be  set  to  -1). 

Default:  0.5,  Range:  (0.0,  10.0],  Type:  Real 

Only  one  of  the  above  three  variables  is  used,  as  determined  by  the 
engine  sizing  flag  in  the  Trcgectoiy  inputs  *** 

•  Afterburner  adiabatic  efficiency. 

Default:  0.75,  Range:  [0.6, 1.0],  Type:  Real 

•  Combustor  adiabatic  efficiency. 

Default*  0.87,  Range:  [0.6, 1.0],  Type:  Real 

•  Ductbumer  adiabatic  efficiency. 

Default:  0.75,  Range:  [0.6, 1.0],  TyP^^ 

•  Compressor  adiabatic  efficiency. 

Default:  0.80,  Range:  [0.6,  1.0],  Type:  Real 

•  Fan  adiabatic  efficiency. 

Defaialt:  0.82,  Range:  [0.6, 1.0],  Type:  Real 

•  Turbine  adiabatic  efficiency. 

Default:  0.90,  Range:  [0.6, 1.0],  Type:  Real 

•  Design  fan  pressure  ratio. 

Default:  1.0,  Range:  [1.0, 10.0],  Type:  Real 

•  Outer  compressor  pressure  ratio. 

Default:  1.0,  Range:  [1.0,  15.0],  Type:  Real 

•  Overall  compressor  pressure  ratio. 

Default:  7.0,  Range;  [3.0,  50.0],  Type:  Real 

•  Combustor  pressure  ratio. 

Default:  0.95,  Range:  [0.6, 1.0],  Type:  Real 

•  Afterburner  pressure  ratio  with  burner  lit. 

Default:  0.94,  Range:  [0.6,  1.0],  Type:  Real 

•  Afterburner  pressure  ratio  without  burner  lit. 

Default:  0.94,  Range:  [0.6,  1.0],  Type:  Real 
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*  Ductbumer  pressure  ratio  with  ductbumer  lit. 

Default:  0.98,  Range:  [0.6, 1.0],  Type:  Real 

*  Ductbumer  pressure  ratio  without  ductbumer  lit. 

De&ult’  0.82,  Range:  [0.6, 1.0],  Type:  Real 

*  Average  compressor  stage  pressure  rise  (psi). 

Default:  1.27,  Range:  [1.0,  3.0],  Type:  Real 

*  Tuzidne  inlet  temperature  (degrees  Ri 

Default  2160.0,  Range:  [1500.0, 4000.0],  Type:  Real 

*  Afterburner  max  temperature  (degrees  R)  (0.0  =  no  afterburner). 
Default  0.0,  Range:  >  0.0,  Type:  Real 

*  Ductbumer  max  temperature  (degrees  R)  (0.0  s  no  ductbumer). 
Default:  0.0,  Range:  >  0.0,  Type:  Real 

*  Incremental  inlet  total  pressure  recovery  reduction,  used  with  inlet 
pressure  recovery  code  below  (input  as  a  positive  niunber) 

Default  0.0,  Range:  [0.0, 1.0],  Type:  Real 

*  Inlet  pressure  recovery  code 

1  «  (AIA  ram  recovery)  -  (incremental  inlet  total  pressure  recovery 

reduction) 

2  s  (Mil-Spec  5008B)  •  (incremental  inlet  total  pressure  recovery 

reduction) 

3  B  (normal  shock)  -  (incremental  inlet  total  pressure  recovery  reduction) 

4  s  Table  look-up 

Default  3,  Range:  [1,  4],  Type:  Integer 

*  Number  of  engines  (this  should  equal  the  number  of  pods). 

Default:  2,  Range:  [1, 10],  Type:  Integer 

*  Specific  fuel  multiplying  factor  for  condition  1. 

Default  1.0,  Range:  [0.3,  3.0],  Type:  Real 

*  Upper  limit  on  Mach  number  where  the  specific  fuel  consumption 
multiplying  fiictor  for  condition  one  is  valid. 

Default  1.0,  Range:  (0.0,  3.0],  Type:  Real 
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The  above  two  variables  (and  the  two  below)  are  typically  used  after  the 
specific  fuel  consumption  has  been  determined  by  a  previous  convergence  run. 
If  the  calculated  SFC  is  greater  than  or  less  than  the  expected  SFC,  it  may  be 
altered  for  a  given  Mach  range  by  setting  the  SFC  multiplying  factor  to  a  value 
other  than  one.  The  Mach  numbers  specifying  the  two  conditions  may  not 
overlap. 


•  Specific  fuel  multiplying  factor  for  condition  2. 

Default:  1.0,  Range:  [0.3,  3.0],  Type:  Real 

•  Lower  limit  on  Mach  number  where  the  specific  fiiel  consumption 
multiplying  factor  for  condition  two  is  valid. 

Default:  1.1,  Range:  (0.0,  3.0],  Type:  Real 

•  Specific  fuel  consumption  multiplying  factor  for  burner  Ht  (apphed  after 
the  two  previous  factors  have  been  added). 

Default:  1.0,  Range:  [0.3,  10.0],  I^pe:  Real 

•  Scale  factor  for  nozzle  boat-tail  drag. 

Default:  0.0,  Range:  [0.0,  2.0],  Type:  Real 

•  Scale  factor  for  total  installation  drag. 

Default:  0.0,  Range:  [0.0,  2.0],  Type:  Real 

•  Scale  factor  for  nozzle  interference  drag. 

Default:  0.0,  Range:  [0.0,  2.0],  I^e:  Real 

•  Altitudes  for  detailed  output.  An  array  of  6  values.  This  array  will  be 
matched  up  with  the  Mach  number  array  below. 

Default:  0.0,  Range:  [0.0,  99999.0],  Type:  Real 

•  Mach  numbers  for  detailed  output.  An  array  of  6  values.  This  array  is 
matched  up  with  the  altitude  array  above. 

Default:  0.0,  Range:  [0.0,  3.0],  TyP®’  Real 
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•  The  number  of  altitude/Mach  number  combinations  above  that  do  not 
have  the  afterburner  lit. 

Default:  6,  Range:  [0,  6],  Type:  Integer 

•  Engine  type  indicator. 

0  »  Turbqjet 

2  X  Turbofan 

Default:  0,  Range:  0  or  2,  Type:  Real 

•  Afterburner  indicator. 

0  «  No  afterburner 
•1  «  Afterburner  is  present  but  not  lit 
2  «  Afterburner  lit 

Default:  -1,  Range:  0  or  -1  or  2,  Type:  Real 

•  Ductbumer  indicator. 

0  s  No  afterburner 

-1  >  Afterburner  is  present  but  not  lit 
2  s  Afterburner  lit 

Default:  0,  Range:  0  or  -1  or  2,  Type:  Real 


56 


Default  jSngiue  yajtde^ 


V«xiiibl« 


Inner  Turbine  Flow  Area 


Bypan  Ratio 


Engine  Face  Diameter 


AB  Adiabatic  Efficiency 


Combustor  Adiab  Efficiency 


Duetbumer  Adiab  Efficiency 


Compressor  Adiab  Efficiency 


Fan  Adiabatic  Efficieniency 


Turbine  Adiabatic  Efficiency 


Hub^p  Ratio 


Design  fan  prentire  ratio 


Outer  comp  pressure  ratio 


Overall  comp  premure  ratio 


Combustor  premsure  ratio 


AB  prenme  ratio,  lit 


AB  premure  ratio,  not  lit 


Duetbumer  pressure  ratio 


DB  premuie  ratio,  not  lit 


Avg  comp  stage  rim 


Thrust  with  burner 


Tlirust,  no  burner 


Turbine  inlet  temp 


Cooling/primary  air  ratio 


1.21 


14560. 


2743. 


0.018 


14500. 


2180. 


Generic 


0.385 


6.23 


8.2 


0.75 


0.87 


0.76 


0.8 


0.9 


0.92 


60000.  60280  9300. 


2836.  2800.  2637. 


Year  of  installation 

63.0 

mm 

68.0 

70.0 

70.0 

70.0  j 

Length 

9.16 

16.18 

10.31 

14.08 

14.86 

8.67  1 

Weight 

608.0 

3790.0 

3218.0 

8874.0 

9767. 

1421.0  1 
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Vm.  WEIGHTS  MODULE 


A.  OVERVIEW 

Aircraft  wetg^ts  are  calculated  based  on  the  aircraft  t7i>e  (fighter, 
transport  or  bomber),  geometric  size  and  gross  weight.  A  "slope  factor"  is 
applied  to  the  various  aircraft  systems  and  structures  to  determine  an  estimate 
of  the  weights.  A  Slope  of  1.0  should  be  used  initially  for  the  first  convergence 
run.  If  the  calculated  weights  are  greater  or  less  than  the  expected  weight, 
then  the  slope  may  be  altered  to  suit  the  requirement.  As  an  example,  a  slope 
of  0.7  could  be  applied  to  the  wing  to  account  for  an  advanced  composites 
structure.  Each  of  the  component  weights  are  computed  internally  to  ACSYNT 
and  are  based  on  historical  data  for  all  metal  components. 

B.  WEIGHTS  INPUT 

CREATE  uses  four  separate  pages  for  input.  The  variables  are; 

•  Wing  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Fuselage  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Horizontal  tail  and/or  canard  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 
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Vertical  tail  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 


•  Nacelles  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Landing  gear  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Engines  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Fuel  systems  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Hydraulics  and  pneumatics  slope. 

Defatdt:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Electrical  system  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Avionics  slope. 

Defatdt:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Instrumentation  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Environmental  control  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Passenger  accommodations  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Auxiliary  power  unit  (APU)  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Flight  controls  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Crew  accommodations  slope. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 
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•  Payload  wei^t  (lbs)  (includes  ammunition,  cargo,  passengers,  etc...). 
Default:  0.0,  Range:  >s  0.0,  IVpe:  Real 

•  Wing  pivot  factor  (for  swept  wings  only).  Used  in  the  same  fashion  as 
slope  factor. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  External  tank  factor.  Used  like  a  slope  factor. 

Default:  1.0,  Range:  [0.0,  3.0],  Type:  Real 

•  Maximum  Mach  number  (for  transports  and  bombers  only). 

Default:  0.85,  Range:  [0.0,  3.0],  Type:  Real 

•  Oblique  wing  material  density  (Ibs/in^). 

Default:  0.056,  Range:  [0.0,  1.0],  Type:  Real 

•  Oblique  wing  allowable  stress  (psi). 

Default:  30000.0,  Range:  [5000.0, 100000.0] 

•  Wing  weight  equation 
0  «  standard  wing 

1  s  delta  wing 

Default:  0,  Range:  0  or  1,  TVpe:  Integer 

•  Oblique  wing  weight  equation 
0  s  standard  wing 

1  s  oblique  wing 

Default:  0,  Range:  0  or  1,  Type:  Integer 

•  Tail  indicator 

0  s  standard  tail 
1  «  T-tail 

Default:  0,  Range:  0  or  1,  T3rpe:  Integer 

•  Body  equation 

1  s  uses  Sanders  body  equation 

2  a:  Air  Force  body  equation 

Defatilt:  1,  Range:  1  or  2,  Type:  Integer 
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*  Wing  weight  technique  (used  only  with  Transports  and  Bombers) 

1  s  Sanders  wing  equation 

2  s  Air  Force  wing  equation 

3  s  Langley  wing  equation 

Default:  1,  Range:  [1,  3],  Type:  Integer 

•  Estimate  of  gross  weight.  This  is  the  starting  value  for  the  convergence 
(lbs). 

Transports  «  100000.0 
Fighters  s  20000.0 
Bombers  »  50000.0 

*  Weight  of  Ammunition  (lbs). 

Defardt:  0.0,  Range:  >=  0.0,  Type:  Real 

•  Weight  of  Bombs  (lbs). 

Default:  0.0,  Range:  >s  0.0,  Type:  Real 

•  Weight  of  Missiles  (lbs). 

Default:  0.0,  Range:  >=  0.0,  Type:  Real 

*  Weight  of  External  Tanks  (lbs). 

Default:  0.0,  Range:  >*  0.0,  Tjrp®' 
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IX.  NAVY  MODULE 


A.  OVERVIEW 

The  Navy  module  was  originally  developed  at  NFS  to  aid  in  the  study  of 
a  carrier  based,  high-energy  laser  equipped  aircraft  for  fleet  air  defense.  Its 
sole  purpose  is  to  determine  if  the  design  is  compatible  with  the  C13-1  catapult 
and  the  MK  7  MOD  3  arresting  gear  as  installed  on  the  CVN-68  class  carriers. 

The  catapult  is  assumed  to  be  opiating  at  maximum  capacity  for  the 
launch,  regardless  of  the  aircraft  weight.  This  will  provide  the  highest 
catapult  endspeed  (liftoff  speed)  possible  to  minimize  the  required  wind  over 
the  deck  (A  low  wind  over  the  deck  is  desirable  to  reduce  the  requirement  for 
a  hig^  ship  speed).  In  this  case,  the  catapult  system  is  operating  at  520  psig 
receiver  pressure.  The  gross  weight  vs  end  speed  curve  [Ref  7:p.  4-28]  was 
fitted  with  a  7th  order  Lagrange  Polynomial  [Ref  8]  to  obtain  an  equation 
suitable  for  use  in  the  program.  The  final  endspeed  is  that  due  to  the  catapult 
added  to  the  velocity  due  to  the  aircraft  thrust. 

Likewise,  the  aircraft  engaging  speed  for  the  arresting  gear  is  the  highest 
possible  engaging  speed  for  the  current  weight  of  the  aircraft.  This  also 
provides  the  minimunn  wind  over  the  deck  requirements. 
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Aircraft  performance  is  based  on  tropical  day  conditions  at  sea-level,  to 
provide  a  worse-case  cicenario.  The  vertical  component  of  the  engine  thrust  is 
added  to  the  lift  of  the  aircraft  based  on  the  aircraft  AOA. 

No  specific  inputs  are  required  for  the  Navy  module.  All  calculations  are 
internal  to  the  program.  When  using  this  module  with  CREATE,  three  items 
must  be  established.  First,  the  module  must  be  selected.  Second,  a  value  for 
the  gear  down  drag  should  be  entered  in  the  'Total  drag  due  to  additional 
items"  variable  in  the  Aerod3mamics  module.  The  drag  supplied  will  be  used 
whenever  the  aircraft  is  less  than  0.3  Mach.  Third,  the  flap/slat  settings  for 
takeoff  and  landing  should  be  set  to  achieve  90%  of  Cj,  max.  The  last  two 
items  are  not  required  but  recommended  for  accurate  results.  For  low  thrust 
aircraft  with  large  flap  areas,  a  very  high  drag  (greater  than  thrust  available) 
may  be  encountered  with  high  cataptilt  endspeeds.  A  reduction  of  the  flap 
setting  may  reduce  the  drag  coefiScient  sufficiently  to  get  airborne. 
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X.  EXAMPLE  ONE 


A.  INTRODUCTION 

To  serve  as  a  detailed  introduction  to  NPSASP,  the  A-10  Thunderbolt  11 
(Fig  4)  will  be  re-created.  Each  step  of  the  design  process  will  be  covered  from 
initiatmg  a  data  file  to  evaluating  the  output  firom  ACSYNT,  and  every  module 
will  be  utilized.  It  is  asstuned  that  the  user  has  an  active  account  on  the 
Aeronautics  Department  Vax  computer  system  and  has  some  experience  with 
Vax  commands  and  terminology. 


Figure  6.  A-10  Thunderbolt  n  [Ref  10;p.  375] 
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B.  A-10  DESIGN  INPUTS 

If  N/A  appears  next  to  a  variable,  that  item  is  not  applicable  to  this 
design.  It  may  be  ignored. 


•  Login  on  the  Vax  and  type  "DESIGN"  (It  may  be  necessary  to  create  a 
new  subdirectory  at  this  point,  if  so  directed).  This  command  will  bring 
up  the  opening  screen  for  NPSASP,  with  several  menu  options. 

•  Select  item  (1)  from  the  opening  menu  (RUN  CREATE).  This  starts 
CREATE  to  begin  building  the  aircraft  data  file. 

•  Select  item  (2)  (CREATE  A  NEW  FILE). 

•  Enter  a  filename  of  "AlO".  CREATE  will  automatically  add  a  three  letter 
extension  to  the  filename  of  ".ACS"  to  distinguish  it  from  other  files  in 
the  directory.  If  the  filename  selected  conflicts  with  an  existing  file, 
CREATE  will  ask  for  a  different  name  to  use. 

•  Select  item  (1)  (SIMPLE  ANALYSIS). 

•  Enter  a  project  title  of  "A-10  THUNDERBOLT".  This  should  not  be 
confused  with  the  initial  file  name. 

•  Select  item  (3)  (BOMBER).  This  is  used  later  on  by  the  Weights  module 
to  establish  the  weights. 

•  This  is  the  Module  Selection  Menu.  The  first  five  modules  are  required 
and  may  not  be  changed.  The  Navy  module  should  be  selected  by  just 
typing  a  "10"  at  the  prompt.  The  "NO"  will  change  to  a  ’YES".  Enter  a 
"0"  to  continue. 

•  Select  item  (1),  Change  the  weight  to  60000.0,  then  (2)  to  continue.  If  for 
some  reason  ACSYNT  can  not  converge  the  design,  this  is  the  maximum 
weight  that  will  be  investigated. 

•  This  is  the  Geometry  Selection  Menu.  Each  feature  that  the  design 
incorporates  shotdd  be  selected  here.  In  this  case,  items  1,  4,  5,  8,  9,  10 
and  11  should  be  set  to  'TES" 
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•  Symmetric  Wing  Geometry: 

.  Aspect  Ratio:  6.54 

-  Surface  Area:  506.0  (ft‘) 

-  Dihedral:  7.0  deg 

-  Fuel  Density:  48.62  (Ibs/ft®)  (JP-4) 

.  Leading  Edge  Flap  Width:  0.12 

-  Leading  Edge  Sweep:  0.0  deg 

-  Wetted  Area  Multiplier:  0.99 

-  Taper  Ratio:  0.66 

-  T/C  Ratio,  Wing  Root:  0.16 

-  T/C  Ratio,  Wing  Tip:  0.13 

-  Trailing  Edge  Flap  Width  (%  chord):  0.35 

>  Fraction  of  Wing  Volume  Filled  with  Fuel:  0.19 
•  Position  of  Wing  Quarter  Chord:  0.47 

-  Elevation  of  Wing  on  Fuselage:  -1.0 

-  Enter  "0"  to  continue  to  the  next  menu. 

•  Horizontal  Tail  Geometry: 

-  Aspect  Ratio:  2.99 

-  Siuface  Area:  110.0 

-  Tail  Volume  Coefficient:  1.0 

-  LE  Sweep:  0.0 

-  Wetted  Area  Multiplier:  1.1  (this  a  little  higher  than  normal  to  try  and 
account  for  the  extra  drag  produced  by  the  tail  design) 

-  Taper  Ratio:  0.99 

-  T/C  Ratio,  Root:  0.13 

-  T/C  Ratio,  Tip:  0.13 

-  Position  of  TE  of  the  Root  Chord:  0.97 

-  Elevation  of  Tail  on  Fuselage:  0.0 

-  Sizing  Logic:  T 

-  Horizontal  Tail  Sizing  Fraction:  0.234  (The  horizontal  tail  will  be  sized 
using  the  wing  area  *  sizing  fraction) 

-  Enter  "0"  to  continue 

•  Vertical  Tail  Geometry  : 

-  Aspect  Ratio:  1.74 

-  Surface  Area:  50.0  (the  area  of  1  tail) 

-  Tail  Volume  (Ik)efficient:  0.1  (not  required  since  the  sizing  fraction  is 
non-zero). 

-  LE  Sweep:  0.0 

-  Wetted  Area  Multiplier:  1.1 

-  Taper  Ratio:  0.61 

-  T/C  Ratio,  Root:  0.13 
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-  T/C  Ratio,  Tip:  0.12 

-  Number  of  Vertical  Tails:  2.0 

-  X  Location  of  TE  of  the  Root  Chord:  0.97 

-  Elevation  of  the  Root  Chord  of  the  Tail  on  Fuselage:  -.9 

-  Sizing  Logic:  T 

-  Vertical  Tail  Sizing  Fraction:  0.107 

-  Enter  "0"  to  continue 

•  Enter  "1"  for  the  number  of  fuselage  pods.  (There  are  2  pods 
symmetrically  located). 

•  Fuselage  Pod  (geometry: 

-  Engine  Pod  Diameter:  4.88 

-  Engine  Pod  Length:  10.89 

-  Stand-Off  Distance:  0.2 

-  Angular  Orientation:  0.0 

-  X  Location  of  Pod  Leading  Edge:  0.6 

-  Wing  Pod  Symmetry:  0 

-  Enter  "0"  to  Continue 

•  Fuselage  Geometry: 

-  Maximum  Fuselage  Diameter:  5.26 

•  Fuselage  Length:  53.33 

-  Diameter  of  Nose  Radar  Dish:  0.0 

-  Afterbody  Fineness  Ratio:  5.5 

•  Fuselage  Fineness  Ratio:  0.0 

-  Nose  Fineness  Ratio:  1.94 

-  Length  of  Radar  Equipment  Behind  Radar:  0.0 

-  Surface  Area  Complexity  Factor:  1.0 

-  Fuselage  Wall  Thickness:  N/A 

-  Mission  Fuel  Weight  Estimate:  12000.0 

-  Tail  Type:  1 

-  Enter  "0"  to  Continue 

•  Crew  Cockpit  (geometry  : 

-  Length  of  Crew  Station:  0.0  (let  ACSYNT  size  it) 

-  Width  of  Crew  Station:  0.0 

-  Nrunber  of  Crew  Members:  1 

-  Seating  Arrangement:  T 

-  Enter  "0"  to  Continue 

•  1  Fuselage  Fuel  Bay 

-  Fuel  Density:  48.62  (JP-4) 


67 


•  Trajectory  Page  1: 

-  Cruise  Mach  Number:  0.45 

-  Mach  Number  for  Max  Endurance:  0.27 

-  Design  Load  Factor:  7.0 

-  Ultimate  Load  Factor:  11.25 

-  Aircraft  Range:  1000.0 

•  Maximum  Dynamic  Pressure:  700.0 

-  Take-Ofif  Obstacle  Requirement:  0 

-  Enter  "0"  to  Continue 

•  Trsgectory  Page  2: 

-  Time  for  Warm*up  and  Taxi:  5.0 

-  Power  Setting  During  Warm-up  and  Taxi:  5 

-  Time  for  Take-off:  2.0 

-  Power  Setting  for  Take-off:  2 

-  Breguet  Altitude  Search  Flag:  0 

-  Loiter  Altitude  Search  Flag:  0 

-  Enter  ”0"  to  Continue 


•  Trsgectory  Page  3: 

•  Fuel  Reserve:  0.05 

-  Total  Internal  Fuel:  11130.0 

•  External  Fuel:  0.0 

-  Weight  of  Trapped  Fuel:  111.0 
.  Engine  Sking  Flag:  -3 

-  Number  of  Cruise  Phases  (see  below):  4 

-  Total  number  of  Trajectory  Phases  (see  below):  8 

-  Debug  Option:  0 

•  Enter  "0"  to  Continue 

*  Trsyectory  Phases.  Eight  phases  will  be  used  to  simulate  a  combat 
mission.  The  values  are  given  below.  Note  that  each  phase  is  presented 
on  a  different  page.  For  the  combat  phase,  input  5.0  g’s  for  item  (8). 
Drop  bombs  and  ammunition  during  the  combat  phase  using  items  (11) 
and  (12)  on  the  menu. 


/ 
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TABLE  9.  A- 10  Mission 


Phase 

Climb 


Cruise 


Cruise 

Combat 

Cruise 


Climb 


Cruise 


Loiter 


Mach 

Start 

0.00 

0.6 

0.5 

0.6 

0.5 

0.00 

0.5 

0.27 


Mach 

End 

0.00 

0.5 

0.5 

0.6 

0.5 

0.00 

0.6 

0.27 


Alt 

Start 


100 


6000 


100 


100 


100 


100 


5000 


500 


Alt 

End 


5000 


5000 


100 


100 


100 


5000 


5000 


500 


Hoiiz 

Diet 


0.0 


230 


40 


0 


40 


0.0 


230.0 


10.0 


Horiz 

Time 


0.0 


44.0 


8.0 


30.0 


8.0 


0.0 


44.0 


20.0 


Power 

Setting 


*  Aerodynamics  Page  1: 

-  Ratio  of  Body  Base  Area  to  Max  Body  Area:  0.08 

-  Angle  of  Attack  for  Cl  max:  11.0 

-  Maximum  Angle  of  Attack:  19.0 

•  Width  of  the  Fuselage  at  the  Nose:  5.26 

-  Boat  Tail  Expostu'e  Factor:  1.0 

■  Cl  max  ScalLag  Factor  for  clean  aircraft:  1.0 

■  Laminar-Turbulent  Weighting  Factor:  1.0 

-  Enter  "0"  to  Continue 

*  Aerodynamics  Page  2: 

-  Ref  Mach  Number  Array:  0.15,  0.20,  0.30,  0.40,  0.45,  0.49,  0.53,  0.57, 
0.60,  0.70 

-  Cl  at  Zero  AOA  for  Body:  0.005, 0.005,  0.005,  0.005,  0.005,  0.005,  0.005, 
0.005,  0.005,  0.005 

-  Canard  Cl  at  Zero  AOA:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Wing  Cl  at  Zero  AOA:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Zero  Lift  Pitching  Moment:  0.048,  0.048,  0.047,  0.047,  0.047,  0.047, 
0.047,  0.047,  0.047,  0.047 

-  Wing  Sweep  Angles:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Enter  "0"  to  Continue 
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*  Aerodynamics  Page  3: 

-  No  Entries  for  Page  3 

-  Enter  "0"  to  Continue 

*  Aerodynamics  page  4: 

-  Wing  Airfoil  Section  Code:  2 

-  Wing  LE  Radius/Chord  Ratio:  N/A 

-  Canard  Airfoil  Section  Code:  N/A 

-  Canard  LE  Radivua/Chord  Ratio:  N/A 

-  Distance  Between  the  Twin  Nacelles:  N/A 

-  Supercritical  Wing  Flag:  0 

-  Body  Cross-section  Code:  1 

-  Enter  "0"  to  Continue 

*  Aerodynamics  Page  5: 

-  Pod  Cowl  Exposure  Factor:  1.0 

-  Friction  Drag  Multiplying  Factor:  0.95 

-  Canard  Incidence:  N/A 

-  Average  Flap  Chord:  3.485 

-  Total  Area  of  Both  Wing  Flaps:  81.3 

-  Total  Span  of  Both  Flaps:  0.0  (Not  used  for  trim) 

•  Desired  Location  of  CG:  0.26 

-  Static  Margin  for  CG:  0.13 

-  Height  of  CG  Above  Fuselage  Centerline:  0.0 

•  Horizontal  Tail  Incidence:  0.0 

•  Enter  "0"  to  Continue 

*  Aerodynamics  Page  6: 

-  Mach  Numbers  for  Detailed  Aero  Output:  0.2,  0.3,  0.6,  0.7 

-  Total  Number  of  Requested  Mach  Numbers:  4 

-  Altitudes  for  Detailed  Aero  Oatput:  0.0,  0.0,  5000.0,  5000.0 

-  Lift  Coefiicients  for  Detailed  Output:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 
0.0,  0.0 

-  Enter  "0"  to  Continue 

*  Aerodynamics  Page  7: 

-  Drag  due  to  External  Bombs:  2.12  (4  AGM-65’8,  4  LAU-117’s) 

-  Drag  due  to  External  Stores:  0.0 

-  Drag  due  to  Drop  Tanks:  0.0 

-  Drag  due  to  Ad^tional  Items:  2.2  (for  gear  down  drag.  Navy  module) 

-  Enter  "0"  to  Continue 


70 


Aerodynamics  Page  8: 

-  C,  max  for  Landing:  >1.0 

-  Cl  max  for  Take-off:  -1.0 

-  TE  Flap  Angle  for  Landing:  30.0 

-  TE  Flap  Angle  for  Take-off:  20.0 

-  LE  Slat  Angle  for  Landing:  15.0 

-  LE  Slat  Angle  for  Take-off:  15.0 

-  LD  Ratio  for  Landing:  -1.0 

-  L/D  Ratio  for  Take-off:  -1.0 

-  Enter  "0"  to  Continue 

Engine  T}rpe:  Change  to  Type  2  (TF-30) 

Proptilsion  Page  1: 

-  Engine  Diameter:  4.35 

-  Engine  Length:  8.33 

-  Engine  Weight:  1478.0 

-  Inner  Turbine  Flow  Area:  0.385 

-  Bypass  Ratio:  6.23 

-  Engine  Face  Diameter:  3.86 

-  Nozzle  Fineness  Ratio:  0.0 

-  Cowl  Fineness  Ratio:  0.0 

-  Enter  "0"  to  Continue 

Propulsion  Page  2: 

-  Engine  Hub/Tip  Ratio:  0.55 

-  Fuel  Heat  Value:  18600.0 

-  Scaling  Factor  for  Inlet  Capture  Area:  1.0 

-  Engine  Percent  Corrected  Airflow:  100.0 

-  Maximum  Nacelle  Diameter  Factor:  1.15 

-  Total  Nacelle  Length  Factor:  1.307 

-  Engine  Face  Mach  Number:  0.5 

-  Distance  Between  Nozzles/Nozzle  Diameter:  2.0 

-  Nozzle  Velocity  Coefficient:  0.98 

-  Enter  "0"  to  Continue 

Propulsion  Page  3: 

-  Cooling/Primary  Airflow  Ratio:  0.0 

-  Year  of  Installation:  75.0 

-  Thrust  w/Aflerbumer:  N/A 

-  Thrust  w/o  Afterburner:  9065.0 

-  Thrust/Weight  Ratio  at  Take-off:  N/A 

-  Afterburner  Adiabatic  Efficiency:  N/A 


-  Combustor  Adiabatic  Efficiency:  0.87 

-  Ductbumer  Adiabatic  Efficiency:  N/A 
.  Compressor  Adiabatic  Efficiency:  0.8 

-  Enter  "0"  to  Continue 

•  Propulsion  Page  4: 

-  Fan  Adiabatic  Efficiency:  0.9 

•  Turbine  Adiabatic  Efficiency:  0.92 
>  Design  Fan  Pressure  Ratio:  1.51 

-  Outer  Compressor  Pressure  Ratio:  1.396 

-  Overall  Compressor  Pressure  Ratio:  21.0 

-  Combustor  Pressure  Ratio:  0.97 

-  Afterburner  Presstire  Ratio:  N/A 
Afterburner  Pressure  Ratio,  Not  lit:  N/A 

-  Ductbumer  Pressure  Ratio:  N/A 

-  Ductbtimer  Pressure  Ratio,  Not  Lit:  N/A 

-  Enter  "0"  to  Continue 

*  Propulsion  Page  5: 

-  Average  Compressor  Stage  Rise:  1.24 

•  Turbine  Inlet  Temp:  2697.0 

•  Afterburner  Max  Temp:  0.0 

•  Ductbumer  Max  Temp:  0.0 

•  Incremental  Inlet  Tot^  Press  Recovery  Reduction:  0.0 

-  Number  of  Engines:  2 

•  Inlet  IVessure  Recoveiry  Code:  3 

-  Enter  "0"  to  Continue 


*  Propulsion  Page  6: 

•  SFC  Mtiltiplying  Factor  for  Condition  One:  1.0 

-  Upper  limit  on  Mach  Nximber  for  Condition  One:  1.0 

-  SFC  Multiplying  Factor  for  Condition  Two:  1.0 

-  Lower  Limit  on  Mach  Nrunber  for  Condition  Two:  1.1 

-  SFC  Multiplying  Factor  for  Burner  lit:  N/A 

-  Scale  Factor  for  Nozzle  Boat-Tad  drag:  1.0 

-  Scale  Factor  for  Total  Installation  Drag:  1.0 

-  Scale  Factor  for  Nozzle  Interference  Drag:  1.0 

-  Enter  "0”  to  Continue 
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•  Propulsion  Page  7: 

-  Altitudes  for  Detailed  Output:  0.0,  0.0,  5000.0,  5000.0,  5000.0, 10000.0 

-  Mach  Numbers  for  Detailed  Output:  0.0,  0.5,  0.5,  0.57,  0.7,  0.7 

-  Number  of  Altitude/Mach  Number  Combinations  without  the 
Afterburner  lit:  6 

-  Engine  Type  Indicator:  2 

-  Afterburner  Indicator:  0 

-  Ductbumer  Indicator:  0 

-  Nozzle  Type  Indicator:  0 

-  Enter  "0"  to  Continue 

•  Weights  Page  1: 

-  Wing  Slope:  1.1 

-  Fuselage  Slope:  1.2 

-  Horizontal  Tail:  1.2 

-  Vertical  Tail:  1.0 

-  Nacelles:  2.018 

-  Landing  Gear:  0.9 

-  Engines:  0.897 

-  Fuel  System:  1.0 

-  Hydraulics:  1.3 

-  Enter  "0"  to  Continue 

•  Weights  Page  2; 

-  Electrical  System:  1.0 

-  Avionics:  1.0 

•  Instrumentation:  1.0 

-  Environmental  System:  1.0 

•  Passenger  Accommodations:  1.0 

-  APU:  1.0 

-  Flight  Controls:  1.37 

-  Crew  Acconunodations:  1.0 

•  Payload:  14000.0 

-  Enter  "0"  to  Continue 

•  Weights  Page  3: 

-  Wing  Pivot  Factor:  0.0 

-  External  Tank  Factor:  0.0 

-  Maximum  Mach  Niunber:  0.7 

-  Oblique  Wing  Material  Density:  N/A 

-  Obhque  Wing  Allowable  Stress:  N/A 

-  Wing  Weight  Equation:  0 

-  Oblique  Wing  Weight  Equation:  0 
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-  Tail  Indicator:  0 

-  Body  Equation:  1 

-  Wing  Weight  Technique:  3 

•  Estimate  of  Take-off  Gross  Weight:  60000.0 

-  Enter  "0"  to  continue 

•  Weights  Page  4: 

-  Weight  of  Ammunition:  1000.0 

-  Weight  of  Bombs:  1848.0 

-  Weight  of  Missiles:  0.0 

-  Weight  of  External  Tanks:  0.0 

-  Enter  "0"  to  continue 


The  ACSYNT  data  file  is  complete.  The  main  NPSASP  menu  is  now 
presented.  Option  (2),  run  ACSYNT,  should  now  be  selected.  Input  the  name 
of  the  data  file  (AlO)  when  requested.  This  simple  analysis  problem  will  take 
about  4  minutes  to  complete. 

If  everything  was  entered  correctly  the  output  file  should  appear  like  the 
one  on  pages  81-109.  If  a  value  was  entered  incorrectly  and  ACSYNT  crashes, 
ensure  that  the  foiu*  commands  given  on  page  6  are  executed  prior  to  running 
CREATE  again. 

C.  OUTPUT  EVALUATION 

The  output  file  from  ACSYNT  has  the  same  name  as  the  input  file  (AlO), 
but  the  extension  is  ".OUT"  instead  of  ".ACS”,  and  it  will  appear  with  some 
other  files  in  the  root  directory.  The  output  file  may  be  viewed  on  the  terminal 
screen  or  printed  out.  If  it  is  printed  out,  the  wide  tractor  printer  should  be 
used  as  the  printout  is  130  columns  wide  in  places. 
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The  important  variables  are  defined  within  the  foUowing  sections. 
Definitions  of  other  variables  can  be  found  in  Reference  4. 

The  first  4  pages  of  the  output  deal  with  the  control  structure  that 
ACSYNT  will  use  for  this  analysis.  This  structure  is  established  within 
CREATE  and  will  change  depending  on  the  analysis  method  selected.  The 
final  page  is  a  summary  of  the  more  valuable  results. 

1.  (Geometry  Output 

Page  85  is  a  print  out  of  the  variables  input  to  the  Geometry  modiile. 
Some  of  these  values  are  those  input  to  CREATE  and  others  are  set  internally. 
Page  86  defines  the  initial  fuselage  using  the  input  values.  The  pods  are  not 
shown  on  the  initial  output.  "X"  represents  the  fuselage  length  (measured 
from  the  nose),  "R"  is  the  radius,  and  "AREA"  is  the  area  of  the  cross-section 
at  location  'X".  Additional  information  is  at  the  bottom  of  page  86  concerning 
fuselage  volume  and  stirface  area.  Page  87  shows  the  initial  dimensions  of  the 
aircraft  surfaces.  This  is  a  valuable  means  for  ensiuing  that  the  design 
geometry  is  correct. 

The  final  output  from  the  Geometry  section  begins  on  page  92.  The 
pod  (nacelle)  information  now  appears.  The  final  dimensions  of  the  planar 
sxirfaces  on  page  93  shows  the  calculated  values  for  the  horizontal  and  vertical 
tail  areas,  re-sized  based  on  the  sizing  fraction  as  requested. 


75 


2.  Trajectory  Output 


The  initial  Trajectory  data  appears  on  page  88  with  the  output 
beginning  on  page  94.  Notice  that  the  ending  altitudes  (given  by  "H")  are 
hi^er  than  requested  due  to  the  aircraft  climbing  slightly  as  fuel  is  burned  off 
This  can  be  prevented  by  using  a  "-1"  for  the  ending  altitude.  Following  the 
mission  output  is  a  printout  of  the  combat  parameters  for  1  g  fli^t,  sustained 
flight  and  instantaneous.  The  ouput  variables  are: 


*  M:  Mach  Number 

SFC(I):  Installed  Specific  Fuel  Consumption 
SFC(U):  Uninstalled  SFC 
H:  Altitude  (ft) 

THRUST(I):  Installed  Thrust 
THIIUST(U):  Uninstalled  Thrust 
CL:  Loft  Coefficient 
CD:  Drag  Coefficient 

CDINST:  Engine  Installation  Drag  Coefficient 
ALPHA:  Angle  of  Attack 
GAMMA:  Climb  Angle  (deg) 

WFUEL:  Fuel  burned  for  that  Phase 
W:  Aircraft  Weight  at  end  of  Phase 
TIME:  Phase  Fhght  Time  (sec) 

WA:  Engine  Airflow  (Ib/sec)  per  engine 
PR:  Pressure  Recovery 
VEL:  Velocity  in  ft/sec 
Q:  Dynamic  Pressure 
X:  Phase  Distance  (nm) 

WFTOl:  Warm-up  and  Taxi  Fuel 
WFT02:  Take-off  Fuel 
PS:  Specific  Excess  Power 
NZ:  Normal  Load  Factor 
TDOT:  Turning  Rate  (deg/sec) 

RADIUS:  Radius  of  Turn 
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3.  Aerodynamics  Output 

The  Aerodynamics  output  begins  on  page  95.  There  are  four 
separate  sections  that  match  to  the  four  altitude/Mach  number  combinations 
that  were  requested  for  the  detailed  aerodynamics  output.  Under  EXTERNAL, 
only  the  EXTRA  (drag  due  to  additional  items)  is  output.  The  drag  due  to 
bombs,  stores  and  tanks  are  computed  but  not  shown.  Most  of  the  terms  are 
self  explanatory.  The  "Zone"  refers  to  the  internal  calculation  method  used. 

4.  Propulsion  Output 

The  Propulsion  output  on  page  98  is  quite  detailed.  All  of  the 
variables  are  defined  at  the  beginning  of  the  section.  The  six  sections  correlate 
with  the  six  altitude/Mach  number  combinations  requested. 

5.  Weights  Output 

The  calculated  values  shown  on  page  107  include  the  slope  factors 
that  were  selected.  If  the  weight  shown  is  too  high  or  low,  adjust  the  slope  to 
bring  the  value  into  range.  The  calculated  weight  was  the  weight  computed 
for  the  most  recent  pass  through  the  mission  and  the  estimated  weight  is  the 
next  estimate.  Since  the  two  values  agree  within  .0001  (.01%)  ACSYNT 
terminated  the  nm. 
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6.  Navy  Output 

The  output  from  the  Navy  module  (page  108)  is  clear  cut.  The 
rntnimiim  wind  over  the  deck  requirements  for  launch  is  based  on  1.1  times  the 
stall  speed  minus  the  liftoff  speed.  The  landing  requirements  are  similarly 
based.  Notice  the  high  Cj  during  landing  do  to  the  larger  flap  setting. 

7.  Convergence  Information 

The  aircraft  convergence  information  begins  on  the  bottom  of  page 
90.  Error  messages  from  each  module  can  normally  be  found  in  this  section. 
In  thin  case,  two  different  warnings  are  present.  The  first  indicates  that  the 
combat  load  factor  that  was  input  during  the  combat  phase  (5  g’s)  is  too  much 
for  the  design  to  handle  for  a  sustained  period.  ACSYNT  automatically 
decreased  it  to  a  sustainable  level  of  4.0  g’s  (page  95).  The  second  error,  near 
the  bottom  of  page  91,  indicates  that  there  is  insufficient  thrust  if  an  engine 
is  lost  off  the  catapult.  This  is  verified  in  the  Navy  output. 

D.  EXAMPLE  ONE  COMPLETION 

After  ACSYNT  completes  its  run,  it  does  not  update  the  aircraft  data  file 
with  the  final  numbers.  This  means  that  the  design  must  be  re-converged  if 
the  same  file  is  run  again.  To  establish  the  data  file  as  converged,  it  must  be 
updated.  In  particular,  the  final  value  for  the  gross  weight  miist  be  input 
(47121  lbs.  Weights  section),  the  mission  fuel  required  should  be  updated 
(11443  lbs,  Fuselage  section),  the  combat  g  loading  should  be  reduced  from  5.0 
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to  4.0  (Trajectory  combat  phase),  the  areas  for  the  horizontal  and  vertical  tails 
should  be  updated  (118.4  and  54.1,  respectively)  and  the  sizing  flag  should  be 
changed  to  "F".  To  accomplish  this,  run  CREATE  again  and  perform  the 
following  steps: 

•  Select  item  (1)  (Open  a  Previously  Created  File) 

*  No  change  to  Analysis  Method. 

•  Select  (3)  Bomber 

*  No  change  to  Module  Select  Menu 

*  No  change  to  the  maximum  weight 

•  Select  (1),  change  (geometry  module 

•  No  change  to  Geometry  Selection  Menu 

•  Skip  past  the  Wing. 

*  Update  the  horizontal  tail  and  vertical  tail  (  areas  and  sizing  flag) 

*  Skip  by  the  fuselage  pods 

*  Change  the  mission  fuel  weight  estimate  on  the  Fuselage  Geometry  Menu 
to  the  new  value 

*  Skip  past  the  Crew  Cockpit  and  Fuselage  Fuel  Bays. 

*  Select  (1),  change  Trajectory  module 

•  Skip  the  first  3  pages  of  the  Trajectory  data. 

•  Select  (1),  change  Trajectory  phases. 

•  Change  the  ending  altitudes  to  -1  to  prevent  the  slow  climb.  Change  the 
g  loading  during  combat  to  4.0 
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•  No  changes  to  the  Aerodynamics  or  Propulsion  modtdes. 

•  Select  (1),  Change  Weights  module 

•  Skip  to  page  3  of  the  Weights  data  and  input  the  new  Take-off  gross 
weight  estimate  (47121.0) 

•  Skip  the  last  Weights  page  and  exit. 

The  Simple  Analysis  Method  of  the  A-10  is  now  complete.  Sensitivity  and 
Optimization  studies  may  now  be  performed.  If  the  data  file  is  nm  through 
ACSYNT  again,  a  sUghtly  different  answer  may  be  output  for  the  final  gross 
weight  due  to  the  different  starting  value.  This  new  value  is  typically  within 
a  few  pounds  of  the  first  value  and  is  not  significant. 
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o  o  o  o  n 


CCCCCCC  0000000  PPPPPPP  EEEEEEE  SSSSSSS 

0  0  P  P  E  S 

0  0  P  P  E  S 

0  0  PPPPPPP  EEEE  SSSSSSS 

OOP  E 

OOP  E 

CCCCCCC  0000000  P  EEEEEEE  SSSSSSS 


CONTROL  PROGRAM 
FOR 

ENGINEERING  SYNTHESIS 


TITLE 

A-10  THUNDERBOLT 
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CO  CO 


TITLE; 

A-10  THUNDERBOLT 


CONTROL  PARAMETERS; 

CALCULATION  CONTROL,  NCALC  =  1 
NUMBER  OF  GLOBAL  DESIGN  VARIABLES,  NDV  =  0 
NUMBER  OF  SENSITIVITY  VARIABLES,  NSV  -  0 
NUMBER  OF  FUNCTIONS  IN  TWO-SPACE,  N2VAR  =  0 
NUMBER  OF  APPROXIMATING  VAR.  NXAPRX  =  0 
INPUT  INFORMATION  PRINT  CODE,  IPNPUT  =  1 
DEBUG  PRINT  CODE,  IPDBG  =  0 


CALCULATION  CONTROL,  NCALC 
VALUE  MEANING 

1  SINGLE  ANALYSIS 

2  OPTIMIZATION 

3  SENSITIVITY 

4  TWO-VARIABLE  FUNCTION  SPACE 

5  OPTIMUM  SENSITIVITY 

6  APPROXIMATE  OPTIMIZATION 


*  *  ESTIMATED  DATA  STORAGE  REQUIREMENTS 


INPUT 

REAL 

EXECUTION 

AVAILABLE 

INPUT 

INTEGER 

EXECUTION 

9 

9 

5000 

1 

1 

AVAILABLE 

1000 
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AAAAAAA 
A  A 

A  A 

AAAAAAA 
A  A 

A  A 

A  A 


ccccccc 

c 

c 

c 

c 

c 

ccccccc 


sssssss 

s 

s 

sssssss 

s 

s 

sssssss 


Y  Y 
Y  Y 
Y  Y 

Y 

Y 

Y 

Y 


N  N 

NN  N 

N  N  N 

N  N  N 

N  N  N 

N  NN 

N  N 


T 

T 

T 

T 

T 

T 


NASA-AMES  PROGRAM 
FOR 

AIRCRAFT  SYNTHESIS 
NAVAL  POSTGRADUATE  SCHOOL  VERSION 


TITLE 

A-10  THUNDERBOLT 

AIRCRAFT  TYPE  -  BOMBER 
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TITLE : 

A-10  THUNDERBOLT 


AIRCRAFT  TYPE  -  BOMBER 


CONTROL  PARAMETERS: 

READ  CONTROL,  MREAD  =  6 
EXECUTION  CONTROL,  MEXEC  =  4 
WRITE  CONTROL,  MWRITE  =  6 
NUMBER  IDENTIFYING  CONVERGENCE 

VARIABLE  FOR  CONVERGED  VEHICLE,  lOBJ  =  570 
NUMBER  IDENTIFYING  COMPARISON 

VARIABLE  FOR  CONVERGED  VEHICLE,  JOBJ  =  585 
SUMMARY  OUTPUT  PRINT  CODE,  IPSUM  =  I 
GLOBAL  ERROR  PRINT  CODE,  KGLOBP  =  0 
GLOBAL  CO^WON  INITIALIZATION  CODE,  INIT  =  0 
DEBUG  PRINT  CODE,  IPDBG  =  2 
GLOBAL  PLOT  CONTROL,  IGPLT  =  1 
DATA  TRANSFER  INFORMATION  FILE,  IRDDTR  »  7 
DATA  TRANSFER  INFORMATION  PRINT,  IPDTR  »  0 


VEHICLE  CONVERGENCE  INFORMATION: 
CONVERGENCE  TOLERANCE,  TOL  =  O.lOOOOE-03 
ESTIM  WCALC  VS  WEXT  SLOPE  =  0.75000E+00 
BOUNDING  WEIGHT,  WGMAX  «  0  .  SOOOOE-fOS 


MODULE  IDENTIFICATION  NUMBERS: 

NUMBER  MODULE 

1  GEOMETRY 

2  TRAJECTORY 

3  AERODYNAMICS 

4  PROPULSION 

5  STABILITY  AND  CONTROL 

6  WEIGHTS 

8  GLOBAL  I/O 

10  NAVY 

11  SUMMARY  OUTPUT 

14  TAKEOFF  AND  LANDING 


MODULES  ARE  CALLED  FOR  INPUT  IN  THE  FOLLOWING  ORDER: 
1  2  3  4  6  10 


MODULES  ARE  CALLED  FOR  EXECUTION  IN  THE  FOLLOWING  ORDER 
1  2  6-10 


MODULES  ARE  CALLED  FOR  OUTPUT  IN  THE  FOLLOWING  ORDER: 

1  2  3  4  6  10 

CALLING  MODULE  NUMBER  1 
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GEOMETRY  DATA  CARDS 
1*»*  GEOMETRY  DATA  *** 
2  SWING 


3 

AR»  6.54, 

AREA*  506.00, 

DIHED*  7.00, 

4 

FDENWG=  48.62, 

LFLAPC*0.12, 

SWEEP*  0 . 00 

5 

SWFACT=0.99, 

TAPER=0.66, 

TCROOT=0.16, 

6 

TCTIP=0. 13, 

TFLAPC*0.35, 

WFFRAC=0.19, 

7 

XWING=0.47, 

ZROOT=-1.00, 

KSWEEP=0, 

8 

OUTCOD=2, 

9 

SEND 

10 

SHTAIL 

11 

AR»  2.99, 

AREA*  110.00, 

CVHT=1.00, 

12 

HTFRAC=0.234, 

SWEEP*  0.00, 

SWFACT=1.10, 

13 

TAPER=0.99, 

TCROOT=0. 13, 

TCTIP=0.13, 

14 

XHTAIL=0.97, 

ZROOT=0.00, 

KSWEEP=0, 

15 

OUTCOD=2, 

SIZIT=T, 

16 

SEND 

17 

SVTAIL 

18 

AR=  1.74, 

AREA*  50.00, 

CVVT*0.10, 

19 

SWEEP*  0.00, 

SWF ACT* 1.10, 

TAPER*0.61, 

20 

TCROOT=0.13, 

TCTIP=0.12, 

VTFRAC=0.107 

21 

VTNO-2.0, 

XVTAIL*0.97, 

YROOT*0.00, 

22 

ZROOT=-.90, 

KSWEEP*0, 

OUTCOD=2, 

23 

SI2IT=T, 

24 

SEND 

25 

SFPOD 

26 

DIAM*  4.88, 

LENGTH*  10.89, 

SOD*  0.20, 

27 

THETA*  0.00, 

X=0.6, 

OUTCOD=2, 

28 

SYMCOD=0, 

29 

SEND 

30 

SFUS 

31 

BDMAX-  5.26, 

BODL*  53.33, 

DRADAR*  0.00 

32 

FRAB*  5.50, 

FRATIO*  0.00, 

FRN*  1.94, 

33 

LRADAR*  0.00, 

SFFACT*  1.00, 

WALL*  0.00, 

34 

WFUEL*  12000.0 

,OUTCOD=2, 

ITAIL*1, 

35 

SEND 

36 

SCREW 

37 

LENGTH*  0.00, 

WIDTH*  0.00, 

NCREW*  1, 

38 

OUTCOD-2, 

TAND*T, 

39 

SEND 

40 

SFUEL 

41 

DEN=48.62, 

FRAC=1.00, 

WFUEL*  0 

42 

OUTCOD=2, 

43 

SEND 

END 

t  OF  GEOMETRY  DATA 

CARDS 

43  CARDS  READ 


REW  SEATING  REQUIREMENTS 


NUMBER  OF  CREW .  1.0 

TANDEM  SEATING .  T 

CREW  LENGTH  REQUIRED .  0.0 

CREW  WIDTH  REQUIRED .  3.5 
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NASA/AMES  A  C  S  Y  N  T  “INITIAL  OUTPUT** 
FUSELAGE  DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

1.07 

0.78 

1.92 

2.13 

1.26 

4.98 

3.20 

1.63 

8.36 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

e.40 

2.35 

17.36 

7.47 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.80 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

18.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21 .73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21.30 

28.80 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

38.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41 .60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51 .20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 

•* FUSELAGE 

MAX.  DIAMETER. . . 

5.260 

FINENESS 

RATIO. . 

10.139 

SURFACE 

AREA . . . . 

702.864 

VOLUME . . 

809.360 
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NASA/ AMES  A  C  S  Y  N  T  »* INITIAL  OUTPUT** 

DIMENSIONS  OF  PLANAR  SURFACES 

WING  U.TAIL  V.TAIL  CANARD  UNITS 

PLAN  AREA .  506.0  110.0  50.0  C.O  (SQ.FT.) 

SURFACE  AREA .  1012.4  173.0  94.3  0.0  (SQ.FT.) 

VOLUME .  4  64.5  60.7  24.1  0.0  (CU.FT.) 

SPAN .  57.526  18.136  9.327  0.000  (FT.) 

L.E.  SWEEP .  0.000  0.000  0.000  0.000  (DEG.) 

C/4  SWEEP .  -1.794  -0.096  -3.982  0.000  (DEG.) 

T.E.  SWEEP .  -7.140  -0.385  -15.559  0.000  (DEG.) 

ASPECT  RATIO  .  6.540  2.990  1.740  0.000 

ROOT  CHORD .  10.598  6.096  6.659  0.000  (FT.) 

ROOT  THICKNESS .  20.347  9.510  10.388  0.000  (IN.) 

ROOT  T/C  .  0.160  0.130  0.130  0.000 

TIP  CHORD .  6.994  6.035  4.062  0.000  (FT.) 

TIP  THICKNESS .  10.911  9.415  5.849  0.000  (IN.) 

TIP  T/C  .  0.130  0.130  0.120  0.000 

TAPER  RATIO  .  0.660  0.990  0.610  0.000 

MEAN  AERO  CHORD _  8.919  6.065  5.465  0.000  (FT.) 

LE  ROOT  AT .  22.416  45.634  45.071  0.000  (FT.) 

C/4  ROOT  AT .  25.065  47.158  46.736  0.000  'FT.) 

TE  ROOT  AT .  33.013  51  .730  51.730  0.000  (FT.) 

LE  M.A.C.  AT .  22.416  45.634  45.071  0.000  (FT.) 

C/4  M.A.C.  AT .  24.645  47.151  46.437  O.OCC  (FT.) 

TE  M.A.C.  AT .  31.335  51.700  50.536  0.000  (FT.) 

y  M.A.C.  AT .  13.400  4.526  4  .287  0.000 

LE  TIP  AT .  22.416  45.634  45.071  0.000  (FT.) 

C/4  TIP  AT .  24.164  47.143  46.087  0.000  (FT.) 

TE  TIP  AT .  29.410  51.669  49.133  0.000  (FT.) 

ELEVATION .  -2.630  0.000  -2.367  0.000  (FT.) 

VOLUME  COEFF .  0.54  9  0.037  0.000 

EXTENSIONS 

Scra)<e  Rear  Extension 

Centroid  location  at .  0.000  0.000 

Area .  0.000  0.000 

Wetted  Area .  0.000  0.000 

Volume .  0.000  0.000 

Sweep  Angle .  0.000 

FUEL  TANKS 
TANK  VOLUME  WEIGHT  DENSITY 

WING  84.  4103.  48.62 

FUS#1  0.  0.  48.62 

FUS#2  0.  0.  50.00 

TOTAL  4103. 

MISSION  FUEL  REQUIRED=  0. 

AVAILABLE  FUEL  VOLUME  IN  WING=  444. 

AIRCRAFT  WEIGHT  =  0.000  Lbs. 

AIRCRAFT  VOLUME  =  1358.592  Cu . Ft . 

AIRCRAFT  DENSITY  =  0.000  Lbs./Cu.Ft. 

CASE=  4 


CALLING  MODULE  NUMBER  2 
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TRAJECTORY  INPUT 


TIMTOl  =5.0 
TIMT02  «  2.0 
FRFORE  =0.05 
DESLF  =,  7.00 
ULTLF  =11.25 
RANGE  =  1000. 

WFOEL  =  11130. 

WFEXT  =  0. 

WFTRAP  =  100. 

FWGMAX  >  1.200 

MMPROP  =  1 


MENDUR 

S 

0. 

NCRUSE 

QMAX 

700, 

IPSIZE 

XDESC 

80.0 

IPSTOI 

?«FUEL 

= 

1.000 

IPST02 

CRMACH 

= 

0.450 

IBREG 

WKLAND 

s 

0.570 

lENDUR 

FLFAC 

= 

0.600 

IPRINT 

DECEL 

s 

0.250 

KERROR 

NLEGCL 

s 

0 

NLEGCR 

TOL 

= 

0.001 

MILCOM 

= 

4 

IPLOT 

- 

0 

S  = 

-3 

HMINP 

= 

0 

= 

5 

HMAXP 

= 

40000 

s 

2 

DELHP 

= 

4000 

= 

0 

SMMINP 

= 

0.300 

= 

0 

SMMAXP 

= 

0.900 

s 

0 

DELMP 

= 

0.100 

s 

2 

WCOMBP 

= 

0 

= 

0 

NLEGLO 

= 

0 

= 

0 

NMISS 

= 

1 

NCODE 

= 

0 

MISSION  1 


MACH  NO.  ALTITUDE  HORIZONTAL  NO. 

PHASE  START  END  START  END  DIST  TIME  TURN 


CLIMB 

0.00 

0.00 

100 

CRUISE 

0.50 

0.50 

5000 

CRUISE 

0.50 

0.50 

100 

COMBAT 

0.60 

0.60 

100 

CRUISE 

0.50 

0.50 

100 

CLIMB 

0.00 

0.00 

100 

CRUISE 

0.50 

0.50 

5000 

LOITER 

0.27 

0.27 

500 

5000 

0.0 

0.0 

0.0 

5000 

230.0 

44.0 

0.0 

100 

40.0 

8.0 

0.0 

100 

0.0 

30.0 

0.0 

100 

40.0 

8.0 

0.0 

5000 

0.0 

0.0 

0.0 

5000 

230.0 

44.0 

0.0 

500 

10.0 

20.0 

0.0 

VIND 

"G"S 


0.0 

0.0 

0.0 

5.0 

0.0 

0.0 

0.0 

0.0 


WKFUEL  M  IP  IX  W  B  A  P 


1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1 .0000 
1.0000 
1.0000 


12  0 
1  4  0 

14  0 

13  0 

14  0 

12  0 
14  0 

14  0 


0  0  0  0 
0  0  0  0 
0  0  0  0 
0  110 
0  0  0  0 
0  0  0  0 
0  0  0  0 
0  0  0  0 


CALLING  MODULE  NUMBER  3 
CALLING  MODULE  NUMBER  4 
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PROPULSION  INPUT 
VERSION  04-76 


•**  PROPULSION  DATA  *** 


AENDIA 

S 

4.350 

AENLE 

= 

8.330 

AENWT 

= 

1478.000 

ALTI 

S 

0.000 

AM 

= 

0.000 

ATDRB 

= 

0.385 

AENTW 

s 

0.000 

AUAENG 

K 

0.000 

AWAENG 

= 

0.157 

BA 

6.230 

DELPR 

S 

0.000 

DELT57 

= 

100.000 

DEPWCC 

= 

2.000 

DIAl 

E 

3.860 

EABl 

= 

0.750 

EBl 

B 

0.870 

EDI 

= 

0.750 

ETACl 

S 

0.800 

ETAFl 

B 

0.900 

ETATl 

0.920 

HTR 

- 

0.550 

HVF 

B 

18600.000 

MACHl 

1.000 

MACH2 

= 

1.100 

PCDFAC 

B 

1.000 

POSA 

= 

29.920 

PRFD 

s 

1.510 

PWCC 

B 

100.000 

PllPl 

s 

1.396 

P2P1 

= 

21.000 

RlOA 

= 

-1.000 

R32 

s 

0.970 

R54 

= 

0.920 

R54N 

B 

0.880 

R711 

ss 

0.980 

R711N 

= 

0.820 

SCPR 

S 

1.240 

SFADP 

= 

1.000 

SFADSP 

s 

1.000 

SFAOXP 

B 

1.000 

SFBEP 

1.000 

SFBPP 

1.000 

SFBTP 

B 

1.000 

SFDIVP 

= 

1.000 

SFINSP 

= 

1.000 

SFIP 

B 

1.000 

SFSFCl 

S 

1.000 

SFSFC2 

1.000 

SFSFC3 

B 

1.000 

SMI 

0.500 

SODG 

2.000 

TOSA 

B 

518.000 

TR 

= 

520.000 

TWAB 

= 

25100. 

TWOAB 

B 

9065. 

TWTO 

S 

0.500 

T3 

= 

2697. 

T5M 

S 

3400. 

T51 

S 

0. 

T7M 

= 

3400. 

T71 

B 

0. 

VCl 

S 

0.980 

WCWAl 

0.000 

XMDES 

= 

0.850 

XMT 

S 

0.850 

YREN 

= 

75. 

FRET 

B 

0.000 

FRPN 

= 

0.000 

RDIAM 

= 

1.150 

RLENG 

= 

1.307 

IPR  =  3  IPRINT  =  0  IPLOT  =  0 

KERROR  =  0  KODE  =  2  KT5  =  0 

KT7  *  0  MINPR  =  1  NAB  =  6 

NOZZ  =  0  NPROP  =  6  NSUMM  =  15 

lENG  =  2  (TF30) 


THESE  VARIABLES  ARE  USED  BY  TABLE  LOOK  DP 

ESF  =  1.000  NDTAIL  =  0  IPDBUG  «  0  IIPRINT  =  0 


ALTD  =  0.  0.  5000.  5000.  5000.  10000. 

XMACH  -  0.000  0.500  0.500  0.570  0.700  0.700 

XMPRI  =  0.000  0.300  0.600  0.900  1.200  4.000 

XPRI  =  1.000  1.000  1.000  1.000  1.000  1.000 

XMPRIl  =  0.000  0.000  0.000  0.000  0.000  0.000  0.000 

0.000  0.000  0.000 

XPRIl  =  0.000  0.000  0.000  0.000  0.000  0.000  0.000 

0.000  0.000  0.000 

XMPRI2  =  0.000  0.000  0.000  0.000  0.000  0.000  0.000 

0.000  0.000  0.000 

XPRI2  =  0.000  0.000  0.000  0.000  0.000  0.000  0.000 

0.000  0.000  0.000 

CALLING  MODULE  NUMBER  6 
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INITIAL  WEIGHTS  INPUT  DATA 
ACSYNT  MODULE  NUMBER  6 

AIRCRAFT  TYPE :  BOMBER 
TITLE:  ***  WEIGHTS  DATA  *** 


CONTROL  OPTIONS 


IPRINT 

s 

1  IGRAPH 

=  1 

ITAIL 

=  0  KERROR  = 

0 

IDELT 

s 

0  lOBLIQ 

=  0 

KWING 

=  3  KBODY  = 

1 

K1 

S 

1.00  K2 

=  1.00 

K3 

=  1.0  K4 

S= 

1.0 

K5 

s 

1.00  K6 

=  1.00 

AFMACH 

1  =  0.70  MAXIT  = 

1 

KB 

s 

0.00  KPl 

=  0.00 

KP2 

=  0.00 

FR 

3S 

1.00  TECHG 

=  1.00 

WGTO 

=  60000 

STRESS 

S 

30000. 

DENS 

=  0.056 

FLIFTF  =0 

.000 

TECHI 

= 

1.00  1.00 

1.00 

1  .00 

1.00  1.00 

1.00 

1.00 

1.00 

SLOPE (1) 

3= 

1.10  1.20 

1.20 

1.00 

2.02  0.90 

0.90 

1.00 

SLOPE (9) 

s 

1.30  1.00 

1.00 

1.00 

1.00  1.00 

1.00 

1.37 

1.00 

INITIAL  ESTIMATES 
IF  CODE  -  1,  WEIGHT  IS  FIXED 


QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 

15600. 

0 

WAIRC 

s 

360. 

0 

WAPU 

s 

0. 

0 

WAN04UN 

s 

1000. 

1 

WARM 

* 

0. 

0 

WBAG 

= 

0. 

0 

WBBl 

s 

0. 

0 

WBODY 

= 

6600. 

0 

WCAND 

= 

0. 

0 

WCARGO 

= 

0. 

0 

WCREW 

360. 

0 

WE 

s 

7800. 

0 

WELT 

= 

2520. 

0 

WEP 

= 

840. 

0 

WETANK 

s 

0. 

0 

WFEQ 

7200. 

0 

WFS 

* 

780. 

0 

WCA 

= 

840. 

0 

WGEAR 

m 

360. 

0 

WHDP 

s 

30. 

0 

WHT 

s 

1200. 

0 

WINST 

s 

180. 

0 

WLG 

s 

1800. 

0 

WMISS 

s 

0. 

0 

WNA 

s 

1440. 

0 

WPA 

s= 

0. 

0 

WPASS 

s 

0. 

0 

WPL 

3S 

14000, 

1 

WPS 

SE 

8400. 

0 

WSC 

ss 

1800. 

0 

WTSUM 

S 

60000. 

0 

WVT 

s 

540. 

0 

WWING 

* 

4800. 

0 

WBOMB 

s 

1848. 

1 

WENVP 

* 

0. 

0 

WPIV 

= 

0. 

0 

WLIFTF 

= 

0. 

0 

WBB2 

= 

0. 

0 

CALLING  MODULE  NUMBER  10 


INPUT  VALUES  TO  NAVY  MODULE 

CLMAX  =1.80 
SIGMA  =  0.94449 
VSOUND  =  679.6 

ALT  =  0. 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  =  0.54000E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 
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5.000000 


WARNING  ;  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  =  0.48771E+05 

SLOPE  OF  WCALC  VS  WEST  LINE  =  0.75000E+00 

ESTIMATED  GROSS  WEIGHT  =  0.37800E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  =  0.44878E+05 

SLOPE  OF  WCALC  VS  WEST  LINE  =  0.30000E+00 

ESTIMATED  GROSS  WEIGHT  =  0.47117E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  =  0.47118E+05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 
CALLING  MODULE  NUMBER  1 


5.000000 


5.000000 
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NASA/ AMES 

A  C 

S  y  N  T  **FINAL 

OUTPUT** 

FUSELAGE  DEFINITION  NACELLE 

DEFINITION  NACELLE 

LOCATION 

X 

R 

AREA  X-XNOSE 

R  AREA  X 

Y 

Z 

0.00 

0.00 

0.00  0.00 

2.18  14.92  32.00 

5.25 

0.00 

1.07 

0.78 

1.92  2.72 

2.18  14.92  32.00 

-5.25 

0.00 

2.13 

1.26 

4.98  8.17 

2.18  14.92 

3.20 

1.63 

8.36  10.89 

2.18  14.92 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

6.40 

2.35 

17.36 

7.47 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

* 

11.73 

2.63 

21.73 

12.80 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

18.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21.30 

28.80 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

38.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 

•‘FUSELAGE** 

**PODS** 

MAX.  DIAMETER _ 

5.260 

4.359 

• 

FINENESS 

RATIO. . . 

10.139 

SURFACE  AREA . 

702.864 

149.095  (EACH) 

VOLUME . . . 

809.360 
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NASA/AMES  A  C  S  Y 

N  T 

“FINAL 

OUTPUT* 

* 

DIMENSIONS  OF  PLANAR 

SURFACES 

WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN  AREA . 

506.0 

118.4 

54.1 

0.0 

(SQ.FT. ) 

SURFACE  AREA . 

1012.4 

189.0 

102.8 

0.0 

(SQ.FT. ) 

VOLUME . 

464.5 

67.8 

27.1 

0.0 

(CU.FT. ) 

SPAN . 

57.526 

18.816 

9.706 

0.000 

(FT.) 

L.E.  SWEEP . 

0.000 

0.000 

0.000 

0.000 

(DEG. ) 

C/4  SWEEP . 

-1.794 

-0.096 

-3.982 

0.000 

(DEG. ) 

T.E.  SWEEP . 

-7.140 

-0.385  - 

■15.559 

0.000 

(DEG. ) 

ASPECT  RATIO  . 

6.540 

2.990 

1.740 

0.000 

ROOT  CHORD . 

10.598 

6.324 

6.929 

0.000 

(FT.) 

ROOT  THICKNESS . 

20.347 

9.866 

10.810 

0.000 

(IN.) 

ROOT  T/C  . 

0.160 

0.130 

0.130 

0.000 

TIP  CHORD . 

6.994 

6.261 

4.227 

0.000 

(FT.) 

TIP  THICKNESS . 

10.911 

9.768 

6.087 

0.000 

(IN.) 

TIP  T/C  . 

0.130 

0.130 

0.120 

0.000 

TAPER  RATIO  . 

0.660 

0.990 

0.610 

0.000 

MEAN  AERO  CHORD .... 

8.919 

6.293 

5.687 

0.000 

(FT.) 

LE  ROOT  AT . 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4  ROOT  AT . 

25.065 

46.987 

46.533 

0.000 

(FT.) 

TE  ROOT  AT . 

33.013 

51.730 

51.730 

0.000 

(FT.) 

LE  M.A.C.  AT . 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4  M.A.C.  AT . 

24.645 

46.979 

46.223 

0.000 

(FT.) 

TE  M.A.C.  AT . 

31.335 

51.699 

50.488 

0.000 

(FT.) 

Y  M.A.C.  AT . 

13.400 

4.696 

4.461 

0.000 

LE  TIP  AT . 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4  TIP  AT . 

24.164 

46.971 

45.857 

0.000 

(FT.) 

TE  TIP  AT . 

29.410 

51.667 

49.028 

0.000 

(FT.) 

ELEVATION . 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME  COEFF . 

0.586 

0.040 

0.000 

E  X  T  E  N  S 

IONS 

Strake  Rear  Extension 

Centroid  location  at. 

0.000 

0.000 

Area . 

0.000 

0.000 

Wetted  Area . 

0.000 

0.000 

Volume . 

0.000 

0.000 

Sweep  Angle . 

0.000 

FUEL  T 

A  N  K  S 

TANK  VOLUME 

WEIGHT  DENSITY 

WING  84. 

4103. 

48, 

,62 

FUS#1  151. 

7341. 

48, 

,62 

FUS#2  0. 

0. 

50, 

,00 

TOTAL 

11443. 

MISSION  FUEL  REQUIRED=  11443. 
AVAILABLE  FUEL  VOLUME  IN  WING=  444. 


AIRCRAFT  WEIGHT  = 
AIRCRAFT  VOLUME  = 
AIRCRAFT  DENSITY  = 
CASE=  4 

CALLING  MODULE 


47116.801  Lbs. 
1368.732  Cu.Ft. 

34.424  Lbs. /Cu.Ft. 

NUMBER  2 
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TRAJECTORY  OUTPUT 

MISSION  1  (PAYLOAD  =  14000.  LB) 

PHASE  M  H  CL  ALPHA  WFOEL  TIME  VEL 

SFC(I)  THRUST(I)  CD  GAMMA  W  WA  Q 

SFC(U)  THRUST (U)  CD INST  L/D  THR/THA  PR  X 

CLIMB  0.50  5000.  0.2887  2.43  103.8  0.92  551. 

0.58  11233.  0.0259  8.82  46668.0  307.73  311. 

CYCLE  0.57  0.  0.0009  11.15  2.00  1.00  5. 

CRUISE  0.50  6164.  0.2993  2.53  2413.8  42.55  546. 

0.84  3942.  0.0262  0.00  44254.2  245.97  297. 

CYCLE  0.81  4086.  0.0010  11.41  0.72  1.00  230. 

CRUISE  0.50  298.  0.2370  1.98  505.6  7.26  558. 

0.92  4541.  0.0245  0.00  43748.7  297.98  367. 

CYCLE  0.88  4715.  0.0009  9.68  0.72  1.00  40. 

COMBAT  0.60  100.  0.6475  5.49  3793.9  30.00  670. 

0.65  11737.  0.0435  0.00  37106.7  356.36  531. 

CYCLE  0.63  12018.  0.0010  14.90  1.94  1.00  198. 

CRUISE  0.50  334.  0.1987  1.64  500.4  7.26  558. 

0.94  4368.  0.0236  0.00  36606.3  297.13  367. 

CYCLE  0.90  4540.  0.0009  8.42  0.69  1.00  40. 

CLIMB  0.48  5000.  0.2466  2.08  77.8  0.70  525. 

0.57  11354.  0.0248  12.35  36528.5  303.76  282. 

CYCLE  0.56  0.  0.0009  9.96  2.00  1.00  3. 

CRUISE  0.50  6454.  0.2343  1.95  2345.1  42.57  546. 

0.88  3636.  0.0244  0.00  34183.4  242.72  295. 

CYCLE  0.85  3776.  0.0009  9.60  0.67  1.00  230. 

LOITER  0.27  500.  0.6370  6.13  717.6  20.00  301. 

0.83  2608.  0.0486  0.00  33465.8  248.41  106. 

CYCLE  0.81  2652.  0.0008  13.12  0.36  1.00  59. 
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FUEL  SUMMARIES 


MISSION  FUEL  =  10803. 
RESERVE  FUEL  =  540. 
TRAPPED  FUEL  =  100. 

TOTAL  FUEL  •=  11443. 


TAKEOFF  FUEL 
WFTOl  =  120. 

WFT02  =  225. 


FUEL  CARRIED  : 
EXTERNALLY  »  0 . 

INTERNALLY  =  11443. 


ADDITIONAL  COMBAT  PARAMETERS 


CONDITIONS 

PS 

NZ 

TDOT 

RADIUS 

ALPHA 

CL 

CD 

1  G  FLIGHT 

86.2 

1.00 

0.00 

0. 

1.26 

0.163 

0.0227 

SUSTAINED 

0.0 

4.00 

10.68 

3594. 

5.49 

0.647 

0.0435 

MAX.  INST. 

-199.0 

7.00 

19.07 

2012. 

10.34 

1.131 

0.0913 

COMBAT  ENERGY  =  0.155192E+06 


BLOCK  TIME 
BLOCK  RANGE 

TAKEOFF  FIELD  LENGTH (TOTAL  RUN) 
LANDING  FIELD  LENGTH (TOTAL  RUN) 
LANDING  FIELD  LENGTH (GROUND  RUN) 
WEIGHT  FOR  LANDING  CALCULATION 
LANDING  THRUST  TO  WEIGHT  RATIO 

TAKEOFF  WEIGHT 
LANDING  WEIGHT 
CALLING  MODULE  NUMBER  3 
Detailed  Aerodynamics  Output 


2 . 521  HOURS 
806.2  N.  M. 
2769.  FEET 
5266.  FEET 
1740.  FEET 
40651.  POUNDS 
0.472 

47117.  POUNDS 
33466.  POUNDS 


Mac)i  =  0.20 

Altitude  =  0. 


Parasite  Drag  Induced  Drag 


Friction 

.0162 

Alpha 

Cl 

Cd 

Body 

.0032 

o 

o 

0.005 

0.0263 

Wing 

.0077 

3.0 

0.323 

0.0319 

Stra)ces 

.0000 

6.0 

0.617 

0.0474 

H.  Tail 

.0015 

0.0 

0.005 

0.0263 

V.  Tail 

.0016 

9.0 

0.894 

0.0715 

Canard 

.0000 

12.0 

1.160 

0.1039 

Pods 

.0022 

15.0 

1.422 

0.1449 

Engine 

.0000 

18.0 

1.685 

0.1950 

Cowl 

.0000 

21.0 

1.953 

0.2555 

Boattall 

.0000 

24.0 

2.218 

0.3246 

L/D  Cm  e  Cdtrim  Deltrim  Zone 


0.2 

0.048 

0.00 

0.0000 

0.0 

2 

10.1 

-.007 

0.91 

0.0000 

0.0 

2 

13.0 

-.062 

0.88 

0.0000 

0.0 

2 

0.2 

0.048 

0.00 

0.0000 

0.0 

2 

12.5 

-.119 

0.86 

0.0000 

0.0 

2 

11.2 

-.177 

0.84 

0.0000 

0.0 

2 

9.8 

-.238 

0.83 

0.0000 

0.0 

2 

8.6 

-.302 

0.82 

0.0000 

0.0 

2 

7.6 

-.367 

0.81 

0.0000 

0.0 

2 

6.8 

-.431 

0.80 

0.0000 

0.0 

2 

Interference 

.0058 

Wave 

.0000 

External 

.0043 

Tanlcs 

.0000 

Bombs 

.0000 

Slope  Factors 

ClAlpha  0.0922 

Cdl-'.SAlpha  0.0228 
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Stores 

Extra 

Camber 


.0000 

.0043 

.0000 

.0263 


Mach 

Altitude 


Friction 

.0161 

Alpha 

Cl 

Cd 

L/D 

Cm 

e  Cdtrim  Deltrim  Zone 

Body 

.0032 

0.0 

0.005 

0.0262 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0076 

3.0 

0.329 

0.0320 

10.3 

-.012 

0.92 

0.0000 

0.0 

2 

St rakes 

.0000 

6.0 

0.628 

0.0479 

13.1 

-.070 

0.89 

0.0000 

0.0 

2 

H.  Tall 

.0015 

0.0 

0.005 

0.0262 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V.  Tall 

.0016 

9.0 

0.909 

0.0726 

12.5 

-.129 

0.87 

0.0000 

0.0 

2 

Canard 

.0000 

12.0 

1.177 

0.1056 

11.1 

-.190 

0.85 

0.0000 

0.0 

2 

Pods 

.0022 

15.0 

1.438 

0.1470 

9.8 

-.253 

0.83 

0.0000 

0.0 

2 

Engine 

.0000 

18.0 

1.698 

0.1973 

8.6 

-.318 

0.82 

0.0000 

0.0 

2 

Cowl 

.0000 

21.0 

1.967 

0.2583 

7.6 

-.385 

0.81 

0.0000 

0.0 

2 

Boattall 

.0000 

24.0 

2.155 

0.9130 

2.4 

-.517 

0.25 

0.0000 

0.0 

3 

Interference 

Wave 

External 

Tanks 

Bombs 

Stores 

Extra 

Camber 


.0058 

.0000 

.0043 

.0000 

.0000 

.0000 

.0043 

.0000 


Slope  Factors 
ClAlpha 
Cdl'' .  SAlpha 


0.0896 

0.0392 


Detailed  Aerodynamics  Output 


Mach 

Altitude 


0.60 

5000. 


Induced  Drag 


Friction 

.0156 

Alpha 

Cl 

Cd 

L/D 

Cm 

e  Cdtrim  Deltrim  Zone 

Body 

.0031 

0.0 

0.005 

0.0214 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0074 

3.0 

0.370 

0.0284 

13.0 

-.025 

0.95 

0.0000 

0.0 

2 

Strakes 

.0000 

6.0 

0.701 

0.0474 

14.8 

-.095 

0.92 

0.0000 

0.0 

2 

H.  Tail 

.0014 

0.0 

0.005 

0.0214 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V.  Tail 

.0016 

9.0 

1.003 

0.0759 

13.2 

-.164 

0.90 

0.0000 

0.0 

2 

Canard 

.0000 

12.0 

1.236 

0.2444 

5.1 

-.247 

0.33 

0.0000 

0.0 

3 

Pods 

.0021 

15.0 

1.447 

0.3612 

4.0 

-.326 

0.30 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.639 

0.5010 

3.3 

-.411 

0.27 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.805 

0.6610 

2.7 

-.499 

0.25 

0.0000 

0.0 

3 

Boattall 

.0000 

24.0 

1.936 

0.8336 

2.3 

-.588 

0.22 

0.0000 

0.0 

3 

Interference  .0058 
Wave  .0000 

External  .0000 

Tanks  .0000 

Bombs  .0000 

Stores  .0000 

Extra  .0000 

Camber  .0000 


Slope  Factors 

ClAlpha  0.0804 

Cdl'.SAlpha  0.0375 
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Mach  =  0.70 
Altitude  »  5000. 


Parasite  Drag  Induced  Drag 


Friction 

.0154 

Alpha 

Cl 

Cd 

L/D 

Cm 

e  Cdtrim  Deltrim  Zone 

Body 

.0031 

0.0 

0.005 

0.0212 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0073 

3.0 

0.397 

0.0291 

13.6 

-.031 

0.96 

0.0000 

0.0 

2 

Strakes 

.0000 

6.0 

0.749 

0.0503 

14.9 

-.106 

0.94 

0.0000 

0.0 

2 

H.  Tail 

.0014 

0.0 

0.005 

0.0212 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V.  Tail 

.0015 

9.0 

1.060 

0.1647 

6.4 

-.189 

0.38 

0.0000 

0.0 

3 

Canard 

.0000 

12.0 

1.284 

0.2608 

4.9 

-.267 

0.33 

0.0000 

0.0 

3 

Pods 

.0021 

15.0 

1.500 

0.3840 

3.9 

-.350 

0.30 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.608 

0.5556 

2.9 

-.402 

0.24 

0.0000 

0.0 

4 

Cowl 

.0000 

21.0 

1.701 

0.6924 

2.5 

-.486 

0.21 

0.0000 

0.0 

4 

Boattall 

.0000 

24.0 

1.771 

0.8377 

2.1 

-.572 

0.19 

0.0000 

0.0 

4 

Interference  .0058 
Wave  .0000 

External  .0000  Slope  Factors 

Tanks  .0000  ClAlpha  0.0736 

Bombs  .0000  Cdl'“.5Alpha  0.0376 

Stores  .0000 

Extra  .0000 

Camber  .0000 


n  .0212 

CALLING  MODULE  NUMBER  4 


ENGINE  SUMMARY 


ENGINE  DIAMETER  -  4.35  FEET 

ENGINE  LENGTH*  8.33  FEET 
ENGINE  WEIGHT*  1478.00  POUNDS 
BYPASS  RATIO  =  6.23 

NO  OF  ENGINES  PER  AC  *  2. 

A/C  DRAG  REF  AREA  *  506.00  SQ  FEET 

INLET  CAPTURE  AREA  PER  ENG  *  6.190  SQ  FEET 

PWCC  -  PERCENT  OF  ENGINE  CORRECTED  AIRFLOW 
THRUST  -  ENGINE  THRUST  (POUNDS  PER  ENGINE) 

SFC  »  ENGINE  SPECIFIC  FUEL  CONSUMPTION 

WTOT  -  ENGINE  TOTAL  AIRFLOW  (LBS/SEC  PER  ENGINE) 

OV  EF  -  ENGINE  OVERALL  EFFICIENCY 

PR  EF  -  ENGINE  PROPULSIVE  EFFICIENCY 

TPR  »  INLET  TOTAL  PRESSURE  RECOVERY  (TO  EN  FACE) 

NPR  *  NOZZLE  PRESSURE  RATIO 

TIT  -  TURBINE  INLET  TEMPERATURE  (DEG  R) 

EGT  •  ENGINE  EXHAUST  GAS  TEMPERATURE 

CPR  -  OVERALL  COMPRESSOR  PRESSURE  RATIO 

THRUSTU-  THRUST  PER  ENGINE  IN  LBS,  W/0  INSTAL  DRAG  CORR 

SFCU  *  SFC, 1/HR,  W/0  INSTALLATION  DRAG  CORR 

ABYAC  -  FREESTREAM  BYPASS  FLOW  AREA/AC 

ABLAC  -  FREESTREAM  INLET  BLEED  FLOW  AREA/AC 

ANOZ  -  AREA  OF  NOZZLE  EXIT,  FT* *2 

BETA  «  NOZZLE  BOATTAIL  ANGLE  IN  DEGREES 

AO/AC  -  FREE  STREAM  TO  CAPTURE  AREA  RATIO 

COINS  -  TOT  INSTALLATION  DRAG  COEF  PER  A/C  (SWING  REF) 

COADD  *  ADDITIVE  DRAG  COEF  PER  A/C  (SWING  REF) 

CDSP  -  SUBSONIC  SPILL  DRAG  COEFF  PER  A/C  (SWING  REF) 

CDBL  -  INLET  BLEED  DRAG  COEF  PER  A/C  (SWING  REF) 

CDBP  -  INLET  BYPASS  DRAG  PER  A/C  (SWING  REF) 

CDAUX  *  AUX  AIR  SYSTEM  DRAG  COEF  PER  A/C  (SWING  REF) 
CDDIV  *  INLET  BO.  LAYER  DIVERT  DRAG  PER  A/C  (SWING  REF) 
CDBT  -  NOZZLE  BOATTAIL  DRAG  COEF  PER  A/C  (SWING  REF) 
CDINF  *  DRAG  COEF  OF  BASE  AREA  BETWEEN  NOZZLES  (PER  A/C) 

INSTALL  DRAG  COEF  SCALE  FACTORS 
SFINSP  *  1.0000 

SFAOP  *  1.0000 

SFAOSP  *  1.0000 

SFBEP  -  1.0000 

SFBPP  *  1.0000 

SFAUXP  -  1.0000 

SFDIVP  »  1.0000 

SFIP  *  1.0000 

SFBTP  -  1.0000 
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MACH  = 

0.000 

ALTITUDE  = 

0. 

00  FEET 

PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD  INF 

100.0 

9065. 

0.364 

290. 

0.000 

0.000 

1.000 

1.79 

2697. 

1540. 

22.49 

9065. 

0.364 

0.000 

0.000 

13.65 

11.17 

1000.000 

0.0004 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0004 

0.0000 

98.0  8296. 

0.355 

285. 

0.000 

0.000  1.000  1.84 

2570. 

1486. 

21.51 

8298. 

0.355 

0.000 

0.000 

13.65  11.84 

1000.000 

0.0004  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0004 

0.0000 

96.0  7495. 

0.348  279.  0.000 

0.000  1.000  1.92 

2447. 

1441. 

20.56 

7495. 

0.348  0.000  0.000 

13.65  12.66 

1000.000 

0.0004  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0004 

0.0000 

94.0 

6619. 

0.348 

273. 

0.000 

0.000 

1.000 

2.05 

2329. 

1405. 

19.64 

6619. 

0.348 

0.000 

0.000 

13.65 

13.59 

1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

92.0 

5582. 

0.362 

267. 

0.000 

0.000 

1.000 

2.25 

2214  . 

1380. 

18.75 

5582. 

0.362 

0.000 

0.000 

13.65 

14.62 

1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

90.0 

4076. 

0.431 

261. 

0.000 

0.000 

1.000 

2.54 

2105. 

1367. 

17.88 

4076. 

0.431 

0.000 

0.000 

13.65 

15.69 

1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

88.0  2118. 

0.717 

256. 

0.000 

0.000 

.1.000 

2.52 

1999. 

1310. 

17.04 

2118. 

0.717 

0.000 

0.000 

13.65 

16.01 

1000.000 

0.0006  0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0006 

0.0000 

86.0  1872. 

0.694 

250. 

0.000 

0.000  1.000  2.22 

1898. 

1218. 

16.23 

1872. 

0.694 

0.000 

0.000 

13.65  15.68 

1000.000 

0.0005  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0005 

0.0000 

84.0  1624. 

0.677  244.  0.000 

0.000  1.000  1.95 

1802. 

1131. 

15.44 

1624  . 

0.677  0.000  0.000 

13.65  15.20 

1000.000 

0.0005  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0005 

0.0000 
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82.0  1375. 

0.668  238.  0.000 

0.000  1.000  1.70 

1709. 

1049. 

14.68 

1375. 

0.668  0.000  0.000 

13.65  14-49 

1000.000 

0.0005  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0005 

0.0000 

80.0  1114. 

0.678  232.  0.000 

0.000  1.000  1.48 

1621 . 

971. 

13.95 

1114. 

0.678  0.000  0.000 

13.65  13.36 

1000.000 

0.0005  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0005 

0.0000 

78.0  827.  0.735  226.  0.000 

827.  0.735  0.000  0.000 

0.000  1.000  1.27 

13.65  11.28 

1536. 

897. 

13.24 

1000.000  0.0004  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0004 

0.0000 

76.0  458.  1.039  221.  0.000 

458.  1.039  0.000  0.000 

0.000  1.000  1.09 

13.65  5.40 

1456. 

828. 

12.56 

1000.000  0.0002  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0002 

0.0000 

MACH  =  0.500  ALTITUDE  =  0.00  FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

6143. 

0,594 

336. 

0.237 

0.622 

1.000 

1.79 

2697. 

1479. 

22.49 

6231. 

0.586 

0.000 

0.000 

13.65 

9.83 

1.270 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0,0004 

98.0 

5867. 

0.619  329.  0.228 

0.588 

1.000 

2.20 

2697. 

1572.  21.51 

5956. 

0.610  0.000  0.000 

13.65 

11.79 

1.244 

0.0010  0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0006  0.0003 

96.0 

5127. 

0.630 

323. 

0.224 

0.586  1.000  2.30  2570. 

1526. 

20.56 

5216. 

0.619 

0.000 

0.000 

13.65  12.55 

1.219 

0.0010  0.0000 

0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0007 

0.0003 

94.0 

4349. 

0.655  316.  0.216 

0.571  1.000  2.46  2446. 

1488. 

19.64 

4439. 

0.642  0.000  0.000 

13.65  13.39 

1.194 

0.0010  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0007 

0.0002 

92.0 

3509. 

0.712 

309. 

0.200 

0.533 

1.000 

2.70 

2326. 

1460. 

18.75 

3599. 

0.694 

0.000 

0.000 

13.65 

14.32 

1,168 

0.0010  0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0008 

0.0002 

90.0 

2546. 

0.854  302.  0.168 

0.451  1.000  3.04 

2211. 

1445. 

17.88 

2637. 

0.825  0.000  0.000 

13.65  15.30 

1.143 

0.0010  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0008 

0.0002 

88.0 

1917. 

0.981 

296. 

0.148 

0.406  1.000  3.01 

2100. 

1384. 

17.04 

2008. 

0.936 

0.000 

0.000 

13.65  15.63 

1.117 

0.0010  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0008 

0.0001 
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86.0 

1648. 

0.977  289.  0.150 

0.4  30 

1.000 

2.66 

1994  . 

1288.  16.23 

1739. 

0.925  0.000  0.000 

13.65 

15.40 

1.092 

0.0010  0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0008  0.0002 

64.0 

1383. 

0.986  282.  0.150 

0.459  1.000  2.34 

1892. 

1196.  15.44 

1474  . 

0.925  0.000  0.000 

13.65  15.08 

1.067 

0.0010  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0008  0.0002 

82.0 

1118. 

1.020  276.  0.147 

0.493 

1.000 

2.04  1795. 

1109. 

14.68 

1207. 

0.944  0.000  0.000 

13.65 

14.59 

1.041 

0.0010  0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000 

0.0008 

0.0002 

80.0 

852. 

1.101 

269. 

0.139 

0.533 

1.000 

1.77 

1702. 

1026. 

13.95 

939. 

0.999 

0.000 

0.000 

13.65 

13.88 

1.016 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 

78.0 

577. 

1.311 

262. 

0.121 

0.581 

1.000 

1.52 

1614  . 

94  9. 

13.24 

660. 

1.145 

0.000 

0.000 

13.65 

12.76 

0.990 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 

76.0 

280. 

2.122 

255. 

0.083 

0.621 

1.000 

1.30 

1530. 

876. 

12.56 

354  . 

1.675 

0.000 

0.000 

13.65 

10.73 

0.965 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0002 

MACH  = 

0.500 

ALTITUDE  = 

5000. 

00  FEET 

PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5370. 

0.595 

285. 

0.232 

0.596 

1.000 

2.03 

2697. 

1523. 

22.4  9 

5443. 

0.587 

0.000 

0.000 

13.65 

10.80 

1.270 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0004 

98.0 

4865. 

0.604 

279. 

0.229 

0.590 

1.000 

2.18 

2606. 

1510. 

21.51 

4939. 

0.595 

0.000 

0.000 

13.65 

11.76 

1.245 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0003 

96.0 

4246. 

0.614 

273. 

0.226 

0.588 

1.000 

2.28 

2481. 

1464  . 

20.56 

4320. 

0.604 

0.000 

0.000 

13.65 

12.50 

1.219 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0003 

94  .0 

3601. 

0.639 

268. 

0.218 

0.574 

1.000 

2.44 

2361. 

1428. 

19.64 

3675. 

0.626 

0.000 

0.000 

13.65 

13.35 

1.194 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 
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92.0  2904.  0.694  262.  0.202  0.535  1.000  2.68  2245.  1403.  18.75 

2979.  0.677  0.000  0.000  13.65  14.29 

1.168  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


90.0  2104.  0.834  256.  0.169  0.453  1.000  3.02  2134.  1389.  17.88 

2180.  0.805  0.000  0.000  13.65  15.28 

1.143  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


88.0  1582.  0.959  250.  0.149  0.407  1.000  2.99  2027.  1331.  17.04 

1658.  0.915  0.000  0.000  13.65  15.61 

1.118  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0001 


86.0  1359.  0.955  245.  0.151  0.432  1.000  2.65  1925.  1238.  16.23 

1435.  0.905  0.000  0.000  13.65  15.38 

1.092  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


84.0  1137.  0.966  239.  0.151  0.461  1.000  2.32  1827.  1149.  15.44 

1213.  0.906  0.000  0.000  13.65  15.04 

1.067  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


82.0  918.  1.000  233.  0.147  0.495  1.000  2.03  1733.  1065.  14.68 

992.  0.925  0.000  0.000  13.65  14.55 

1.041  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


80.0  697.  1.084  228.  0.139  0.536  1.000  1.76  1643.  986.  13.95 

769.  0.982  0.000  0.000  13.65  13.83 

1.016  0.0009  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0007  0.0002 


78.0  467.  1.302  222.  0.120  0.584  1.000  1.51  1558.  911.  13.24 

536.  1.134  0.000  0.000  13.65  12.67 

0.991  0.0009  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0007  0.0002 


76.0  218.  2.186  216.  0.080  0.621  1.000  1.29  1477.  841.  12.56 

279.  1.705  0.000  0.000  13.65  10.56 

0.965  0.0008  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0006  0.0002 


MACH  =  0.570  ALTITUDE  =  5000.00  FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO /AC 

COINS 

CDAOD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5230. 

0.629 

297. 

0.252 

0.638 

1.000 

2.03 

2697. 

1506. 

22.4  9 

5332. 

0.617 

0.000 

0.000 

13.65 

10.42 

1.162 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0004 
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98,0  4833.  0.647  291.  0.246  0.620  1.000  2.30  2643.  1536.  21.51 

4937.  0.633  0.000  0.000  13.65  11.70 

1.139  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0007  0.0003 


96.0  4207.  0,659  285.  0.242  0.616  1.000  2,41  2517.  1489.  20.56 

4311.  0.643  0.000  0.000  13.65  12.43 

1.116  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0003 


94.0  3561.  0.687  279.  0.233  0.599  1.000  2.57  2395.  1452.  19.64 

3666.  0.667  0.000  0.000  13.65  13.26 

1.093  0,0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


92.0  2872.  0.747  273.  0.216  0.559  1.000  2.82  2278.  1426.  18.75 

2979.  0.720  0.000  0.000  13.65  14.17 

1.069  0.0011  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0002 


90.0  2105.  0.887  267.  0.184  0.478  1.000  3.18  2165,  1411.  17.88 

2209.  0.845  0.000  0.000  13.65  15.15 

1.046  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0002 


88.0  1601.  1.008  261.  0.165  0.434  1.000  3.15  2057.  1352.  17.04 

1707.  0.945  0.000  0.000  13.65  15.48 

1.023  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0001 


86.0  1366.  1.011  255.  0.166  0.456  1.000  2.79  1953.  1258.  16.23 

1476,  0.936  0.000  0.000  13.65  15.27 

1.000  0.0011  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0002 


84.0  1137.  1,029  249.  0.166  0.482  1.000  2,45  1853.  1168.  15.44 

1246.  0.939  0.000  0.000  13.65  14.96 

0.976  0.0011  0.0000  0,0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0002 


82.0  912.  1.072  244.  0.162  0.511  1.000  2.14  1758.  1083.  14.68 

1019.  0.959  0.000  0.000  13.65  14.52 

0.953  0.0011  0,0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0009  0.0002 


80.0  686.  1,173  238,  0.153  0.543  1.000  1.85  1667.  1002.  13.95 

791.  1.017  0.000  0.000  13.65  13.88 

0,930  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


78.0  454.  1.427  232.  0.133  0.573  1.000  1.59  1580.  926.  13.24 

555.  1.167  0.000  0.000  13.65  12.87 

0.907  0.0010  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0008  0.0002 


76.0  209.  2.435  226.  0.092  0.563  1.000  1.36  1498.  855.  12.56 

301.  1.689  0.000  0.000  13.65  11.14 

0.883  0.0009  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0007  0.0002 
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MACH  =  0.700  ALTITUDE  =  5000.00  FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5013. 

0.698 

325. 

0.284 

0.699 

1.000 

2.03 

2697. 

1467. 

22.49 

5204. 

0.673 

0.000 

0.000 

13.65 

9.53 

1.037 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 

98.0 

4790. 

0.727  319.  0.274 

0.662  1.000  2.49 

2697. 

1560.  21.51 

4989. 

0.698  0.000  0.000 

13.65  11.31 

1.016 

0.0013  0.0000  0,0000 

0.0000  0.0000  0.0000 

0.0000 

0.0009  0.0004 

96,0 

4219. 

0.750  312.  0.267 

0.646  1.000  2.70 

2595. 

1543, 

20,56 

4422. 

0.716  0.000  0.000 

13.65  12.20 

0.996 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0010 

0.0003 

94.0 

3555. 

0.786  306.  0.257 

0.624  1.000  2.88 

2470. 

1505, 

19.64 

3763. 

0.743  0.000  0.000 

13.65  13.00 

0.975 

0.0014  0.0000  0.0000 

0.0000  0,0000  0.0000 

0.0000 

0.0011 

0.0003 

92.0 

2869. 

0.854  299.  0.240 

0.582  1.000  3.16 

2349. 

1477. 

18.75 

3074. 

0.797  0.000  0.000 

13.65  13.88 

0.954 

0,0013  0,0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0011 

0.0002 

90.0 

2136. 

0.999 

293. 

0.208 

0.505 

1.000 

3.56 

2233. 

1461, 

17.88 

2329. 

0.916 

0.000 

0.000 

13.65 

14.82 

0,933  0.0013 

0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

88.0 

1643. 

1.123 

286. 

0.191 

0.4  63 

1,000 

3.53 

2121. 

1400. 

17.04 

1840. 

1.002 

0.000 

0.000 

13.65 

15.16 

0.913  0.0013 

0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

86.0 

1375, 

1.149  280,  0.192 

0.475  1.000  3.12 

2014. 

1302, 

16.23 

1589. 

0.994  0.000  0.000 

13.65  15.00 

0.892 

0.0014  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0012 

0.0002 

84.0 

1124, 

1.190  273.  0.192 

0.488  1.000  2.74 

1911. 

1209. 

15.44 

1343. 

0.996  0.000  0.000 

13.65  14.75 

0.871 

0.0014  0.0000  0.0000 

0,0000  0.0000  0.0000 

0.0000 

0.0012 

0.0002 

82.0 

881. 

1098. 

1.270  267.  0.187 

1.019  0.000  0.000 

0.502  1.000  2.39 

13.65  14.39 

1813. 

1121. 

14.68 

0.850 

0.0014  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0012 

0.0002 
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80.0 

642. 

1.434 

260. 

0.178 

0.507 

1.000 

2.07 

1719. 

1038. 

13.95 

856. 

1.076 

0.000 

0.000 

13.65 

13.88 

0.830 

0.0014  0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

78.0 

402. 

1.846  254.  0.157 

0.489  1.000  1.79  1630. 

959. 

13.24 

610. 

1.218  0.000  0.000 

13.65  13.11 

0.809 

0.0014  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0011 

0.0003 

76.0 

157. 

3.705 

247. 

0.116 

0.370  1.000  1.53 

1545. 

886. 

12.56 

353. 

1.650 

0.000 

0.000 

13.65  11.89 

0.788 

0.0013  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0010 

0.0003 

74.0 

-102. 

-4.310 

241. 

0.030 

-1.471  1.000  1.30 

1464  . 

817. 

11.90 

69. 

6.361 

0.000 

0.000 

13.65  9.63 

0.767 

0.0011  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0008 

0.0003 

MACH  = 

0.700 

ALTITUDE  = 

10000. 

00  FEET 

PWCC 

THRUST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CD  BP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

4386. 

0.696 

274  . 

0.279 

0.673 

1.000 

2.30 

2697. 

1513. 

22.4  9 

4547. 

0.671 

0.000 

0.000 

13.65 

10.39 

1.037 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 

98.0 

4005. 

0.715  268.  0.273 

0.656  1.000  2.56  2628. 

1526. 

21.51 

4170. 

0.686  0.000  0.000 

13.65  11.45 

1.017 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0010 

0.0004 

96.0 

34  68. 

0.732  263.  0.269 

0.648  1.000  2.68 

2503.  1479. 

20.56 

3636. 

0.698  0.000  0.000 

13.65  12.16 

0.996 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000  0.0010 

0.0003 

94.0 

2921. 

0.767 

258. 

0.259 

0.627  1.000  2.86  2381.  1442. 

19.64 

3092. 

0.724 

0.000 

0.000 

13.65  12.97 

0.975 

0.0014 

0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000  0.0011 

0.0003 

92.0 

2355. 

0.834  252.  0.241 

0.584 

1.000 

3.14 

2265. 

1416. 

18.75 

2525. 

0.778  0.000  0.000 

13.65 

13.85 

0.954 

0.0013  0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

90.0 

1751. 

0.977 

247. 

0.210 

0.507 

1.000 

3.54 

2153. 

1402. 

17.88 

1912. 

0.894 

0.000 

0.000 

13.65 

14.80 

0.934 

0.0013  0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0000 

0.0011 

0.0002 
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88.0 

1344  . 

1.099 

241. 

0.192 

0.4  64 

1.000 

3.51 

2045. 

1343. 

17.04 

1508. 

0.979 

0.000 

0.000 

13.65 

15.14 

0.0002 

0.913 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

86.0 

1123. 

1.125 

236. 

0.193 

0.475 

1.000 

3.10 

1942. 

1250. 

16.23 

1301. 

0.971 

0.000 

0.000 

13.65 

14.98 

0.0002 

0.892 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0,0012 

o 

00 

916. 

1.168 

230. 

0.192 

0.489 

1.000 

2.72 

1843. 

1160. 

15.44 

1097. 

0.976 

0.000 

0.000 

13.65 

14.72 

0.871 

0.0014 

0.0000 

0.0000 

0.0000 

0,0000 

0.0000 

0.0000 

0.0012 

0.0002 

82.0 

717. 

1.248 

225. 

0.188 

0.502 

1.000 

2,37 

1748. 

1076. 

14.68 

896. 

0.998 

0.000 

0.000 

13.65 

14.36 

0.851 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

80.0 

519. 

1.417 

219. 

0.177 

0,507 

1.000 

2.06 

1658. 

996. 

13.95 

696. 

1.057 

0.000 

0.000 

13.65 

13.83 

0.830 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

78.0 

321. 

1.846 

214  . 

0.156 

0.486 

1.000 

1.77 

1571 . 

920. 

13.24 

492. 

1.204 

0.000 

0.000 

13.65 

13.05 

0.809 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0003 

76.0 

118. 

3.934 

208. 

0.113 

0.354 

1.000 

1.51 

1489. 

850. 

12.56 

279. 

1.664 

0.000 

0.000 

13.65 

11.78 

0.788 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

74  .0 

-98. 

-3.585 

203. 

0.023 

-2,361 

1.000 

1,28 

1411. 

783. 

11.90 

42. 

8.302 

0.000 

0.000 

13,65 

9.42 

0.768 

0.0011 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0003 

SEA-LEVEL  STATIC  THRUST  =  9065.  (MAX) 

SEA-LEVEL  SFC  =  0.364 

CALLING  MODULE  NUMBER  6 
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WEIGHT  STATEMENT  -  BOMBERS 
•**  WEIGHTS  DATA  *** 

ACSYNT  MODULE  NUMBER  6 


COMPONENT 

AIRFRAME  STRUCTURE 
WING 
FUSELAGE 
HORIZONTAL  TAIL 
VERTICAL  TAIL 
NACELLES 
ALIGHTING  GEAR 

PROPULSION 
ENGINES  (2) 

FUEL  SYSTEM 

FIXED  EQUIPMENT 
HYD.  +  PNEU. 
ELECTRICAL 
AVIONICS 
INSTRUMENTATION 
DE-ICE/AIR  CONDITION 
AUXILIARY  GEAR 
FURNISH.  +  EQPT. 
FLIGHT  CONTROLS 

FUEL 

PAYLOAD 

FLIGHT  CREW  (  1) 

ARMAMENT 

AMMUNITION 

MISSILES 

BOMBS 

EXTERNAL  TANKS 
ADV.  WEAPONS  1 
ADV.  WEAPONS  2 

CALCULATED  WEIGHT 

ESTIMATED  WEIGHT 

PERCENT  ERROR 

CALLING  MODULE  NUMBER  10 


POUNDS 

KILOGRAMS 

PERCENT 

12921. 

5861 . 

27.42 

5212. 

2364  . 

11.06 

4454. 

2020. 

9.45 

457. 

207. 

0.97 

436. 

198. 

0.93 

805. 

365. 

1.71 

1556. 

706. 

3.30 

3577. 

1623. 

7.59 

3169. 

1438. 

6.73 

408. 

185. 

0.87 

5179. 

2349. 

10.99 

297. 

135. 

0.63 

693. 

314  . 

1.47 

1602. 

727. 

3.40 

170. 

77. 

0.36 

377. 

171. 

0.80 

165. 

75. 

0.35 

465. 

211  . 

0.99 

1411. 

640. 

3.00 

11443. 

5191. 

24.28 

14000. 

6350. 

29.71 

240. 

109. 

0.51 

0. 

0. 

0.00 

1000. 

454  . 

2.12 

0. 

0. 

0.00 

1848. 

838. 

3,92 

0. 

0. 

0.00 

0. 

0, 

0.00 

0. 

0. 

0.00 

47121. 

21374 . 

100.00 

47117. 

21372. 

0.01 
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FINAL  VALUES  OF  NAVY  MODULE  VARIABLES 


CATAPULT  TAKEOFF  CALCULATIONS, 


TAKEOFF  GROSS  WEIGHT 
CATAPULT  ENDSPEEO 
LIFTOFF  ENDSPEED 
TAKEOFF  STALL  SPEED 
MINIMUM  WIND  OVER  DECK 
TAKEOFF  ACCELERATION 
TAKEOFF  CL 
TAKEOFF  CD 
ENGINE  OUT  CLIMB  SPEED 
TAKEOFF  FUEL  WEIGHT 
TAKEOFF  AOA 


=  47117.  LBS 
=160.4  KNOTS 
=162.5  KNOTS 
=96.1  KNOTS 
=-56.7  KNOTS 
=0.269  G"S 
=2.832 
=0.279 

=  -586.9  FT  PER  MIN 
=11443.  LBS 
=11.58  DEGS 


ARRESTED  LANDING  CALCULATIONS 


CARRIER  LANDING  WEIGHT 
APPROACH  STALL  SPEED 
MINIMUM  APPROACH  SPEED 
CABLE  ENGAGING  SPEED 
MINIMUM  WIND  OVER  DECK 
LANDING  CL 
LANDING  CD 
LANDING  RESERVE  FUEL 
ENGINE  OUT  CLIMB  SPEED 
LANDING  AOA 


=36486.  LBS 
=84.6  KNOTS 
=101.5  KNOTS 
=145.0  KNOTS 
=-33.3  KNOTS 
=3.345 
=0.406 
=  2660.  LBS 
=  646.8  FT  PER  MIN 

=11.78  DEGS 


OTHER  CALCULATIONS 

OPERATING  EMPTY  WEIGHT  =22164.  LBS 
FOLDED  TAIL  HEIGHT  =  11.5  FEET 
NERROR  =  0 

CALLING  MODULE  NUMBER  11 
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SUMMARY  -  ACSYNT  OUTPUT  -  NASA,  AMES  RESEARCH  CENTER 

A-10  THUNDERBOLT 


GENERAL 

FUSELAGE 

HING 

HTAIL 

VTAIL 

NG 

47121. 

LENGTH 

53.3 

AREA 

506.0 

118.4 

54.1 

W/S 

93 

.1 

DIAMETER 

5.3 

NETTED  AREA 

1012.4 

189.0 

102.8 

T/W 

0. 

38 

VOLUME 

809.4 

SPAN 

57.5 

18.8 

9.7 

N(Z)  ULT  11 

.3 

NETTED  AREA 

702.9 

L.E.  SHEEP 

0.0 

0.0 

4.0 

CREW 

1. 

FINENESS 

RATIO 

10.1 

C/4  SHEEP 

-1.8 

-0.1 

-4.0 

PASENGERS 

0. 

ASPECT  RATIO 

6.54 

2.99 

1.74 

TAPER  RATIO 

0.66 

0.99 

0.61 

ENGINE 

HEIGHTS 

T/C  ROOT 

0.16 

0.13 

0.13 

T/C  TIP 

0.13 

0.13 

0.12 

NUMBER 

2. 

H 

HG 

ROOT  CHORD 

10.6 

6.3 

6.9 

LENGTH 

8 

.3 

STRUCT . 

12921. 

27.4 

TIP  CHORD 

7.0 

6.3 

4.2 

DIAM. 

3 

.8 

PROPUL. 

3577. 

7.6 

M.A.  CHORD 

8.9 

6.3 

5.7 

HEIGHT 

1478 

.0 

FIX.  EQ. 

5179. 

11.0 

LOC.  OF  L.E. 

22.4 

45.4 

44.8 

TSLS 

9065. 

FUEL 

11443. 

24.3 

SFCSLS 

0. 

36 

PAYLOAD 

14000. 

29.7 

MISSION  SUMMARY 


PHASE 

MACH 

ALT 

FUEL 

TIME 

DIST 

L/D 

THRUST 

SFC 

Q 

TAKEOFF 

0.00 

0. 

345. 

7.0 

2769.5 

CLIMB 

0.50 

5000. 

104. 

0.9 

4.9 

11.15 

11232.9 

0.580 

310.6 

CRUISE 

0.50 

6164. 

2414. 

42.5 

230.0 

11.41 

3942.4 

0.841 

297.4 

CRUISE 

0.50 

298. 

506. 

7.3 

40.0 

9.68 

4541.1 

0.915 

366.9 

COMBAT 

0.60 

100. 

3794. 

30.0 

198.4 

14.90 

11737.4 

0.646 

531.4 

CRUISE 

0.50 

334. 

500. 

7.3 

40.0 

8.42 

4368.0 

0.940 

366.5 

CLIMB 

0.48 

5000. 

78. 

0.7 

3.5 

9.96 

11354.1 

0.569 

282.5 

CRUISE 

0.50 

6454. 

2345. 

42.6 

230.0 

9.60 

3636.0 

0.880 

294.8 

LOITER 

0.27 

500, 

718. 

20.0 

59.4 

13.12 

2608.0 

0.825 

106.1 

LANDING  526S.4 

BLOCK  TIME  -  2.521  HR 

BLOCK  RANGE  -  806.2  NM 

COMBAT  PHASES 

MACH  ALT  PSIG  NZS  CLS  CDS  ALS  NZI  PSI  CLI  CDI  ALI  CBE 
0.60  100.  86,  4.0  0.647  0,0435  5.5  7.0  -199.  1.131  0.0913  10.3155192. 
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XI.  EXAMPLE  TWO 


A.  INTRODUCTION 

This  example  will  use  the  A- 10  design  developed  in  the  previous  example, 
only  a  Sensitivity  Study  will  now  be  performed  on  it.  In  partictilar,  the  effect 
that  the  wing  taper  and  overaU  compressor  pressure  ratio  have  on  the  aircraft 
gross  weight  will  be  examined.  No  changes  to  the  aircraft  data  file  other  than 
the  Analysis  Method  will  be  made.  It  is  assumed  that  the  data  file  was 
updated  after  Example  1  was  performed  so  that  the  design  is  now  "converged". 

B.  SENSmVITY  INPUTS 

After  a  decision  is  made  concerning  the  goals  of  the  anal3r8is,  the  Global 
Numbers  for  the  variables  must  be  determined  and  the  desired  range  for  the 
Sensitivity  Variables  should  be  set.  The  following  information  comes  from 
Tables  1,  4  and  5: 

•  Sensitivity  Objective:  Total  Aircraft  Weight 

Global  Niimber:  585 

•  Sensitivity  Variable  #1;  Wing  Taper  Ratio 

Global  Niunber:  514 
Range;  0.1  •  0.99 

•  Sensitivity  Variable  #2:  Overall  Compressor  Press.  Ratio 

Global  Number:  337 
Range:  16.0  -  25.0 
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With  the  information  in  hand,  start  CREATE  and  complete  the  following 
steps: 

•  Start  CREATE  and  open  the  "AlO"  data  file. 

•  Select  (1),  Change  Analysis  Method 

•  Select  (3),  Sensitivity 

•  Enter  a  project  title  of  "A- 10  Sensitivity  Study" 

•  One  Sensitivity  Objective 

•  Sensitivity  Objective  Global  Number:  585 

•  Two  Sensitivity  Variables 

•  Sensitivity  Variable  #1:  514 

•  Upper  Bound:  0.99 

•  Lower  Boimd:  0.1 

•  Sensitivity  Variable  #2:  337 

•  Upper  Bound:  25.0 

•  Lower  Bound:  16.0 

•  Aircraft  (3),  Bomber 

•  No  change  to  the  Module  selection. 

•  No  further  changes.  Complete  CREATE  to  the  end. 

Now  run  ACSYNT  again.  This  analysis  will  take  about  18  minutes. 
The  design  is  re-converged  for  each  of  the  14  variable  values  (seven  values  for 
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each  Sensitivity  Variable).  The  output  from  this  study  is  on  the  following 
pages.  The  first  part  (pages  114  •  131)  is  similar  to  the  Simple  Analysis  and 
is  just  to  show  the  initial  values.  The  convergence  information  starts  on  page 
121. 

The  results  of  the  Sensitivity  Study  starts  on  page  131.  The  taper  ratio 
is  examined  first  and  is  in  the  'X'  column,  with  the  corresponding  gross 
weights  in  the  F(X)  column.  Due  to  a  bug  in  ACSYNT,  the  initial  values  (in 
this  case  for  taper  *  0.5  )  are  not  printed,  so  the  first  indicated  value  is  0.58. 
It  is  apparent  that  the  gross  weight  declines  shghtly  as  the  taper  ratio 
increases  (Fig  5).  The  compressor  pressure  ratio  clearly  has  a  greater  impact 
on  the  gross  weight  (Fig  6),  brought  about  by  fiiel  savings.  These  results  are 
shown  graphically  on  the  following  page. 
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cnssKioa  (IK)  cnss  ticm  (ik) 


TRPER  RATIO  VS  GROSS  WEIGHT 


TRPCK  KRTIO 


COMPRESSOR  PRESSURE  RATIO  VS  GROSS  WEIGHT 


cowressw  fRESURt  RRTIO 


6.  Sensitivity  Study  Results 
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A  A 
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Y  Y 
Y  Y 
Y  Y 

Y 

Y 

Y 

Y 


H  M 
MM  M 
MM  M 
M  M  M 
M  MM 
M  MM 
M  M 


MASA-AMES  PROGRAM 
FOR 

AIRCRAFT  SYNTHESIS 
NAVAL  POSTGRADUATE  SCHOOL  VERSION 


TITLE 

A-10  SENSITIVITY  STUDY 

AIRCRAFT  TYPE  -  BOMBER 


I 
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H  H  H  H  H  H 


TITLE: 

A-10  SENSITIVITY  STUDY 


AIRCRAFT  TYPE  -  BC»1BER 


CONTROL  PARAMETERS: 

READ  CONTROL,  MREAD  - 

EXECUTION  CONTROL,  MEXEC  - 

NRITE  CONTROL,  MWRITE  - 

NUMBER  IDENTIFYING  CONVERGENCE 

VARIABLE  FOR  CONVERGED  VEHICLE,  lOBJ  - 

NUMBER  IDENTIFYING  COMPARISON 

VARIABLE  FOR  CONVERGED  VEHICLE,  JOBJ  - 

SUMMARY  OUTPUT  PRINT  CODE,  IPSUM  - 

GLOBAL  ERROR  PRINT  CODE,  KGLOBP  > 

GLOBAL  COMMON  INITIALIZATION  CODE,  INIT  - 

DEBUG  PRINT  CODE,  IPDBG  - 

GLOBAL  PLOT  CONTROL,  IGPLT  - 

DATA  TRANSFER  INFORMATION  FILE,  IRDDTR 
DATA  TRANSFER  INFORMATION  PRINT,  IPDTR 


6 

4 

6 

570 

585 

1 

0 

0 

2 

1 

7 

0 


VEHICLE  CONVERGENCE  INFORMATION: 
CONVERGENCE  TOLERANCE,  TOL  -  O.lOOOOE-03 
ESTIM  WCALC  VS  NEXT  SLOPE  «  0.75000E4'00 
BOUNDING  HEIGHT,  NGMAX  -  0.60000E+05 


MODULE  IDENTIFICATION  NUMBERS: 


NUMBER 

1 

2 

3 

4 

5 

6 
8 

10 

11 

14 


MODULE 

GEOMETRY 

TRAJECTORY 

AERODYNAMICS 

PROPULSION 

STABILITY  AND  CONTROL 

HEIGHTS 

GLOBAL  I/O 

NAVY 

SUMMARY  OUTPUT 
TAKEOFF  AND  LANDING 


MODULES  ARE  CALLED  FOR  INPUT  IN  THE  FOLLOHING  ORDER: 
1  2  3  4  6  10 


MODULES  ARE  CALLED  FOR  EXECUTION  IN  THE  FOLLOHING  ORDER 
1  2  6-10 


MODULES  ARE  CALLED  FOR  OUTPUT  IN  THE  FOLLOHING  ORDER: 

1  2  3  4  6  10 

CALLING  MODULE  NUMBER  1 
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GEOMETRY  DATA  CARDS 

1* 

**  GEOMETRY  DATA  *** 

2 

SHING 

3 

AR-  6.54, 

AREA-  506.00, 

4 

FDENHG-  48.62, 

LFLAPC-0.12, 

5 

SHFACT-0.99, 

TAPER-0.66, 

6 

TCTIP-0.13, 

TFLAPC-0.35, 

7 

XHIMG-0.47, 

ZROOT— 1.00, 

8 

ODTCOD-2, 

9 

$END 

10 

SHTAIL 

11 

AR-  2.99, 

AREA^  118.40, 

12 

HTFRAC-0.234, 

SHEEP-  0.00, 

13 

TAPER-0.99, 

TCROOT-0.13, 

14 

XHTAIL-O . 97, 

ZROOT-0.00, 

15 

OOTCOD-2, 

SIZIT-F, 

16 

SEND 

17 

SVTAZL 

18 

AR-  1.74, 

AREA-  54.10, 

19 

SHEEP-  0.00, 

SHF ACT-1. 10, 

20 

TCROOT-0.13, 

TCTIP-0.12, 

21 

VTNO-2.0, 

XVTAlL-0.97, 

22 

ZROOT— .90, 

KSHEEP-0, 

23 

S12IT-r, 

24 

SEND 

25 

SFPOD 

26 

DZAM-  4.88, 

LENGTH-  10.89 

27 

THETA-  0.00, 

X-0.6, 

28 

SYMCOD-0, 

29 

SEND 

30 

$FUS 

31 

BDMAX-  5.26, 

BODL-  53.33, 

32 

FRAB-  5.50, 

FRATIO-  0.00, 

33 

LRADAR-  0.00, 

SFFACT-  1.00, 

34 

HFUEL-  11443.0 

,  OOTCOD-2, 

35 

SEND 

36 

SCREH 

37 

LENGTH-  0.00, 

HIDTH-  0.00, 

38 

ODTCOD-2, 

TAND-T, 

39 

SEND 

40 

SFUEL 

41 

DEN-48.62, 

FRAC-1.00, 

42 

OOTCOD-2, 

43 

SEND 

DIHED-  7.00, 
SHEEP-  0.00, 
TCROOT-0.16, 
HFFRAC-0.19, 
KSHEEP-0, 


CVHT-1.00, 

SWFACT-1.10, 

TCTIP-0.13, 

RSHEEP-0, 


CWT—O.IO, 
TAPER-0. €1, 
VTFRAC-0.107, 
TROOT-0.00, 
OOTCOD-2, 


SOD-  0.20, 
ODTCOD-2, 


DRAOAR-  0.00, 
FRM-  1.94, 
HALZ^  0.00, 
ZTAIL-l, 


MCREH-  1, 


MFDEL-  0.0, 


END  or  GEOMETRY  DATA  CAROS 
43  CARDS  READ 


CREH  SEATING  REQUIREMENTS 


NUMBER  OF  CREH .  1.0 

TANDEM  SEATING .  T 

CREH  LENGTH  REQUIRED .  0.0 

CREH  HIDTR  REQUIRED .  3.5 
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NASA/MIES  A  C  S  y  N  T  **IN1TIAL  ODTPDT** 
FUSELAGE  DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

1.07 

0.78 

1.92 

2.13 

1.26 

4.98 

3.20 

1.63 

8.36 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

6.40 

2.35 

17.36 

l.Al 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.60 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

18.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21.30 

28.60 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

36.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 

**FUSELAGE 

MAX.  DIAMETER - 

5.260 

FINENESS 

RATIO. . . 

10.139 

SURFACE 

AREA • • • •  • 

702.864 

VOLUME. . 

809.360 
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NASA/ AMES  A  C  S  Y  H  T  ** INITIAL  OOTPUT** 

DIMENSIONS  OF  PLANAR  SURFACES 


WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN  AREA . 

506.0 

118.4 

54.1 

0.0 

(SQ.FT.) 

SURFACE  AREA . 

1012.4 

189.0 

102.7 

0.0 

(SQ.FT.) 

VOLUME . 

464.5 

67.8 

27.1 

0.0 

(CU.FT.) 

SPAN . 

57.526 

18.815 

9.702 

0.000 

(FT.) 

0.000 

0.000 

0.000 

0.000 

(DEG.) 

C/4  SWEEP . 

-1.794 

-0.096 

-3.982 

0.000 

(DEG.) 

T.E.  SWEEP . 

-7.140 

-0.385 

-15.559 

0.000 

(DEG. ) 

ASPECT  RATIO  . 

6.540 

2.990 

1.740 

0.000 

ROOT  CHORD . 

10.598 

6.324 

6.927 

0.000 

(FT.) 

ROOT  THICKNESS . 

20.347 

9.866 

10.806 

0.000 

(IN.) 

ROOT  T/C  . 

0.160 

0.130 

0.130 

0.000 

TIP  CHORD . 

6.994 

6.261 

4.225 

0.000 

(FT.) 

TIP  THICKNESS . 

10.911 

9.767 

6.084 

0.000 

(IN.) 

TIP  T/C  . 

0.130 

0.130 

0.120 

0.000 

TAPER  RATIO  . 

0.660 

0.990 

0.610 

0.000 

MEAN  AERO  CHORD .... 

8.919 

6.293 

5.685 

0.000 

(FT.) 

LE  ROOT  AT . 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4  ROOT  AT . 

25.065 

46.987 

46.535 

0.000 

(FT.) 

TE  ROOT  AT . 

33.013 

51.730 

51.730 

0.000 

(FT.) 

LE  M.A.C.  AT . 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4  M.A.C.  AT . 

24.645 

46.979 

46.225 

0.000 

(FT.) 

TE  M.A.C.  AT . 

31.335 

51.699 

50.488 

0.000 

(FT.) 

Y  M.A.C.  AT . 

13.400 

4.696 

4.459 

0.000 

LE  TIP  AT . 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4  TIP  AT . 

24.164 

46.971 

45.860 

0.000 

(FT.) 

TE  TIP  AT . 

29.410 

51.667 

49.029 

0.000 

(FT.) 

ELEVATION . 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME  COEFF . 

0.586 

0.040 

0.000 

EXTENSIONS 

Strmk*  R«ar  Extension 
Centroid  location  at .  0.000  0.000 


Araa .  0.000  0.000 

Nattad  Araa .  0.000  0.000 

Voluma .  0.000  0.000 

Swaap  Angla .  0.000 

FUEL  TANKS 

TANK  VOLUME  WEICRT  DENSITY 

NING  84.  4103.  48.62 

FUSfl  0.  0.  48.62 

FUS*2  0.  0.  50.00 

TOTAL  4103. 


MISSION  FUEL  REQUIRED-  0. 

AVAILABLE  FUEL  VOLUME  IN  WING-  444. 

AIRCRAFT  WEIGRT  -  0.000  Lba. 

AIRCRAFT  VOLUME  -  1368.697  Cu.Ft. 

AIRCRAFT  DENSITY  -  0.000  Lbs. /Cu.Ft.- 

CASE-  4 

CALLING  MODULE  NUMBER  2 
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TRAJECTORY  INPOT 


TIMTOl 

■ 

5.0 

MENDOR 

a 

0. 

NCROSE 

a 

4 

IPLOT 

a 

0 

TIMT02 

m 

2.0 

QMAX 

a 

700. 

IPSIZE 

-3 

HMINP 

a 

0. 

FRFORE 

m 

0.05 

XDESC 

a 

80.0 

IPSTOl 

a 

5 

HMAXP 

a 

40000. 

DESLF 

7.00 

WKFOEL 

a 

1.000 

IPST02 

a 

2 

DELHP 

a 

4000. 

OLTLF 

-11.25 

CRHACH 

a 

0.450 

IBREG 

a 

0 

SM4INP 

a 

0.300 

RANGE 

■i 

1000. 

NKLAND 

a 

0.570 

lENDDR 

a 

0 

SMIAXP 

a 

0.900 

WFOEL 

■1 

11130. 

FLFAC 

a 

0.600 

IPRINT 

a 

0 

DELMP 

a 

0.100 

NFEXT 

m 

0. 

DECEL 

a 

0.250 

RERROR 

a 

2 

WCOMBP 

a 

0.50 

NFTRAP 

« 

100. 

NLEGCL 

a 

0 

NLEGCR 

a 

0 

NLECLO 

a 

0 

FN<aavx 

m 

1.200 

TOL 

a 

0.001 

MILCOM 

a 

0 

NMISS 

a 

1 

NCODE  -  0 


MMPROP  -  1 


MISSION  1 


PHASE 

MACH  HO. 
START  END 

ALTITUDE 
START  END 

HORIZONTAL 
DIST  TIME 

NO. 

TURN 

VIND 

•*C"S 

HKFUEL 

M 

IP 

IX 

N 

B 

A 

p 

CLIMB 

0.00 

0.00 

100 

5000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CRUISE 

0.50 

0.50 

5000 

-1 

230.0 

44.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

CRUISE 

0.50 

0.50 

100 

-1 

40.0 

8.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

COMBAT 

0.60 

0.60 

100 

-1 

0.0 

30.0 

0.0 

5.0 

1.0000 

1 

3 

0 

0 

1 

1 

0 

CRUISE 

0.50 

0.50 

100 

-1 

40.0 

8.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

CLIMB 

0.00 

0.00 

100 

5000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CRUISE 

0.50 

0.50 

5000 

-1 

230.0 

44.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

LOITER 

0.27 

0.27 

500 

-1 

10.0 

20.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

CALLING  MODOLE  NDMBER  3 
CALLING  MODOLE  NOMBER  4 
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PROPULSION  INPUT 
VERSION  04-76 


***  PROPULSION  DATA  *** 


AENDIA 

m 

4.350 

AENLE  - 

8.330 

AENNT  - 

1478.000 

ALTI 

m 

0.000 

AM  - 

0.000 

ATURB  B 

0.385 

ABNTN 

■1 

0.000 

AUAENG 

m 

0.000 

AMAENG  - 

0.157 

BA 

6.230 

DELPR 

m 

0.000 

DELT57  - 

100.000 

DEPNCC  - 

2.000 

DIAl 

m 

3.860 

EABl 

0.750 

EBl 

0.870 

EDI 

m 

0.750 

ETACl  - 

0.800 

ETAFl  - 

0.900 

ETATl 

m 

0.920 

HTR 

0.550 

HVF  - 

18600.000 

MACHl 

m 

1.000 

MACH2  * 

1.100 

PCDFAC  - 

1.000 

POSA 

m 

29.920 

PRFD 

1.510 

PWCC 

100.000 

PUPl 

■i 

1.396 

P2P1 

21.000 

RlOA 

-1.000 

R32 

m 

0.970 

R54 

0.920 

R54N 

0.880 

R711 

m 

0.980 

R711N  - 

0.820 

SCPR  - 

1.240 

SFADP 

m 

1.000 

SFADSP  - 

1.000 

SFAUXP  - 

1.000 

SFBEP 

■1 

1.000 

SFBPP  - 

1.000 

SFBTP  - 

1.000 

SFDIVP 

a 

1.000 

SFINSP  - 

1.000 

SFIP 

1.000 

SFSFCl 

m 

1.000 

SFSFC2  - 

1.000 

SFSFC3  - 

1.000 

SMI 

m 

0.500 

SODG  - 

2.000 

TOSA 

518.000 

TR 

m 

520.000 

TMAB 

25100. 

TMOAB  - 

9065. 

TMTO 

m 

0.500 

T3 

2697. 

T5M 

3400. 

T51 

m 

0. 

T7M 

3400. 

T71  - 

0. 

VCl 

m 

0.980 

NCNAl  - 

0.000 

XMDES  - 

0.850 

XMT 

m 

0.850 

YREN 

75. 

FRBT 

0.000 

FRPN 

m 

0.000 

RDIAM  « 

1.150 

RLENG  - 

1.307 

IPR 

3 

IPRINT  - 

0 

IPLOT 

m 

0 

KERROR  - 

0 

RODE  - 

2 

KT5 

m 

0 

ICT7 

0 

MINPR  - 

1 

NAB 

m 

6 

HOZZ 

0 

NPROP  - 

6 

usam 

m 

15 

THESE  VARIABLES  ARE 
ESF  -  1.000 

USED  BY  TABLE 
NDTAIL  -  0 

lENG 

LOOK  UP 
IPDBUG  -  0 

I IPRINT  - 

2  (TF30) 

0 

ALTD  - 

0. 

0. 

5000. 

5000. 

5000. 

10000. 

XMACH  - 

0.000 

0.500 

0.500 

0.570 

0.700 

0.700 

XMPRI  - 

0.000 

0.300 

0.600 

0.900 

1.200 

4.000 

XPRI  - 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

XMPRIl  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRIl  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XMPRI2  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XFRI2  - 

CALLING 

0.000  0.000 

0.000  0.000 

MODULE  NUMBER  6 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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INITIAL  WEIGHTS  INPOT  DATA 
ACSINT  MODULE  NUMBER  6 

AIRCRAFT  TYPE:  BOMBER 
TITLE:  ***  WEIGHTS  DATA  *** 


CONTROL  OPTIONS 


IPRINT 

« 

1  IGRAPH 

-  1 

ITAIL 

-  0  KERROR  - 

0 

IDELT 

m 

0  lOBLIQ 

-  0 

KWING 

«  3  KBODY  - 

1 

K1 

m 

1.00  K2 

-  1.00 

K3 

-  1.0  K4 

■1 

1.0 

K5 

m 

1.00  K6 

-1.00 

AFMACH  -  0.70  MAXIT  - 

1 

KB 

m 

0.00  KPl 

-  0.00 

KP2 

-  0.00 

FR 

m 

1.00  TBCHG 

-  1.00 

WGTO 

-  47121 

• 

STRESS 

m 

30000. 

DENS 

-  0.056 

FLIFTF  -0.000 

TECHI 

m 

1.00  1.00 

1.00 

1.00 

1.00  1.00 

1.00 

1.00  1.00 

SLOPE (1) 

m 

1.10  1.20 

1.20 

1.00 

2.02  0.90 

0.90 

1.00 

SLOPE (9) 

m 

1.30  1.00 

1.00 

1.00 

1.00  1.00 

1.00 

1.37  1.00 

(ITIAL  ESTIMATES 

IF  CODE 

-  1, 

WEIGHT 

IS  FIXED 

QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 

a 

12251. 

0 

WAIRC  - 

283. 

0 

WAPU 

m 

0. 

0 

WAM4UN  - 

1000. 

1 

WARM 

m 

0. 

0 

WBAG 

0. 

0 

WBBl 

m 

0. 

0 

WBODY  - 

5183. 

0 

WCAND 

m 

0. 

0 

WCARGO  - 

0. 

0 

WCREW 

m 

283. 

0 

WE 

6126. 

0 

WELT 

m 

1979. 

0 

WEP 

660. 

0 

WETANK 

m 

0. 

0 

WFEQ 

5655. 

0 

WFS 

m 

613. 

0 

WCA 

660. 

0 

WGEAR 

m 

283. 

0 

WHDP  - 

24. 

0 

WHT 

m 

942. 

0 

WINST  - 

141. 

0 

WLG 

m 

1414. 

0 

WMISS  - 

0. 

0 

WNA 

m 

1131. 

0 

WPA  - 

0. 

0 

HP  ASS 

m 

0. 

0 

WPL  - 

14000. 

1 

WPS 

m 

6597. 

0 

WSC  - 

1414. 

0 

WTSUM 

m 

47121. 

0 

WVT 

424. 

0 

WWING 

m 

3770. 

0 

WBOMB  - 

1848. 

1 

WENVP 

m 

0. 

0 

WPIV  - 

0. 

0 

WLIFTF 

m 

0. 

0 

WBB2  - 

0. 

0 

CALLING  MODULE  NUMBER  10 


INPUT  VALUES  TO  NAVY  MODULE 

CIMAX  -  1.80 
SIGMA  -  0.94449 
VSOUND  -  €79.6 

ALT  -  0. 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0 .47121E-I-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 
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5.000000 


WAIUtIHG  :  Combat  load  factor  reduced  from  Input  value  of 
CALLIHG  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .49355E-«-05 

SLOPE  OF  MCALC  VS  WEST  LINE  -  0.75000E-f00 

ESTIMATED  GROSS  WEIGHT  -  0 .56058E-»-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .SISIOE+OS 

SLOPE  OF  WCALC  VS  WEST  LIME  -  0 .SOOOOE+OO 

ESTIMATED  GROSS  WEIGHT  -  0 . 50109E-«-05 
CALLING  l«}DULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  OIOSS  WEIGHT  -  0 .50120E-I-05 

SLOPE  OF  WCALC  VS  WEST  LIME  -  0.30000E+00 

ESTIMATED  GROSS  WEIGHT  >  0  .S0124E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  1  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .50122E+0S 


*  •  *  END  VEHICLE  CONVERGENCE 

3  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0.50124Et05 
CALLING  NODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .49715B405 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .70000Et00 

ESTIMATED  GROSS  WEIGHT  -  0 .4S759E-I-05 
CALLING  MCX>ULE  NUMBER  1 
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5.000000 


CALLIH6  MODOLE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .493e0E-l-0S 

SLOPE  OF  NCALC  VS  NEST  LINE  -  0.30000E+00 

ESTIMATED  GROSS  HEIGHT  -  0.49581E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .49S82E-t-05 


*  *  *  END  VEHICLE  CONVERGENCE 

2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0 .49581E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  s  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0.49244E405 

SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .70000E-I-00 

ESTIMATED  GROSS  HEIGHT  -  0.48457E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  !  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  GROSS  HEIGHT  -  0.48972Et0S 

SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .30000E-«-00 

ESTIMATED  GROSS  HEIGHT  -  0.49137Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  ii^ut  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .49137Et05 


*  *  *  END  VEHICLE  CONVERGENCE 
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2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0.49137E+05 
CALLING  MODULE  NUMBER  1 
CALLING  M(H}ULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  « 

CALCULATED  GROSS  HEIGHT  -  0 .48852E-t-05 

SLOPE  OF  HCALC  VS  HEST  LINE  «  0.70000B-f00 

ESTIMATED  GROSS  HEIGHT  -  0 .48187E-I-05 
CALLING  MCH)ULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  GROSS  HEIGHT  -  0 .48624Et05 

SLOPE  OF  HCALC  VS  HEST  LINE  -  0 .30000E-(-00 

ESTIMATED  GROSS  HEIGHT  «  0.48762Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  >  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .48762E+05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0.48762Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  HUMBER  2 

HAItNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  CROSS  HEIGHT  -  0 .48532E-«-05 

SLOPE  OF  HCALC  VS  HEST  LINE  «  0 .70000E-I-00 

ESTIMATED  GROSS  HEIGHT  -  0 .47996E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  »  0 . 48350E-<-05 

SLOPE  OF  HCALC  VS  HEST  LINE  »  0.30000E+00 


5.000000 
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0.48461E-I-05 


ESTIMATED  GROSS  WEIGHT  - 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 
WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.4e460E+05 


*  *  *  END  VEHICLE  CC»IVERGENCE 

2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0.4e461E-»-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .4824fiE-l-05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .70000Et00 

ESTIMATED  GROSS  WEIGHT  -  0 .47744E-«-0S 
CMJ.IMG  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  raducad  from  input  value  of 
CALLING  MODULE  NUMBER  « 

CALCULATED  GROSS  WEIGHT  -  0.48078E-f05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .30000E-t-00 

ESTIMATED  GROSS  WEIGHT  -  0 .4S180E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  OTOSS  WEIGHT  -  0 . 48179E-I-05 


*  *  •  END  VEHICLE  CONVERGENCE 

2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


•  *  *  begin  vehicle  convergence 

ESTIMATED  GROSS  WEIGHT  -  0 . 48180Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
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CALX.IM6  MODULE  NUMBER  6 

CALCULATED  (SIOSS  NEICHT  -  0.47989E+05 

SLOPE  or  NCALC  VS  NEST  LINE  -  0 .70000B-I-00 

ESTIMATED  SROSS  NEIGRT  -  0.47544E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Conbat  load  factor  raduoad  fron  Ir^ut  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 . 47843E-t-0S 

SLOPE  OP  WCALC  VS  NEST  LIME  -  0.30000Bt00 

ESTIMATED  GROSS  WEIGHT  -  0 .47932E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Coeibat  load  iaotor  raduoad  fron  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.47933E+05 


•  •  •  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

IMSUrriClEMT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0.47932Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  MUlfiER  2 

WARMING  :  Conbat  load  factor  raduoad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.49262E-t-05 

SLOPE  or  WCALC  VS  WEST  LIME  -  0.70000B400 

ESTIMATED  GROSS  NEKST  -  0.52366E405 
CALLING  MODULE  NUISER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Conbat  load  factor  raduoad  fron  input  valua  of 
CALLING  MODULE  MUtSER  € 

CALCULATED  CHOSS  WEIGHT  -  0.503S1E405 

SLOPE  or  WCALC  VS  WEST  LINE  -  0.30000B400 

ESTIMATED  GROSS  WEIGHT  -  0.49700E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  !  Combat  load  factor  raduoad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.49699E405 


•  *  *  END  VEHICLE  CONVERGENCE 
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2  COHVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  begin  vehicle  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0 .49700E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  Input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .49409E-t-05 

SLOPE  OF  HCALO  VS  WEST  LIME  -  0.70000E-f00 

ESTIMATED  GROSS  HEIGHT  -  0 .48729E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  Input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0.49164E-f05 

SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .30000Et00 

ESTIMATED  GROSS  HEIGHT  -  0.49311E-I-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Coaibat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 . 49312Et05 


*  *  *  end  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


•  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0.49311E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .49049E-»-05 

SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .70000Et00 

ESTIMATED  GROSS  HEIGHT  «  0.48438E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 
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CALCOIATED  GROSS  WEIGHT  -  0 . 4e832E-t-05 


SLOPE  OF  HCALC  VS  WEST  LINE  ->  0 .30000E-(-00 

ESTIMATED  GROSS  HEIGHT  -  0 .489S2E-t-05 
CALLING  MODULE  NOMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  ««OSS  WEIGHT  -  0.48960E+0S 


*  *  *  END  VEHICLE  CONVERGENCE 

2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0.48962E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  3  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .48720Et05 

SLOPE  OF  WCALC  VS  WEST  LINE  «  0.70000E+00 

ESTIMATED  GROSS  WEIGHT  -  0.46156E-«-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CAIiLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .48517E-I-05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .30000E-I-00 

ESTIMATED  GROSS  WEIGHT  -  0.48639b-l-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  3  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.4B63BE-I-05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  •  *  BEGIN  VEHICLE  CONVERGENCE 
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ESTIMATED  GROSS  HEIGHT  -  0 . 48639E-t-05 
CALLING  MODOLE  NUMBER  1 
CALLING  MODOLE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  £r«n  input  valua  of 
CALLING  MODOLE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.48411E+05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .70000E-*-00 

ESTIMATED  GROSS  WEIGHT  -  0.47879E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  GROSS  WEIGHT  -  0.48223E-(-05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .30000E-t-00 

ESTIMATED  GROSS  WEIGHT  -  0 .48336E-I-05 
CALLING  MODOLE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .4833€E-(-05 


*  *  *  end  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0 . 48336E-I-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  !  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 . 48118E-I-05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .70000Et00 

ESTIMATED  GROSS  WEIGHT  -  0 . 47608E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .47937E-(-05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .30000E-»-00 

ESTIMATED  GROSS  WEIGHT  -  0 .48045E-«-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  value  of 
CALLING  MODULE  NUMBER  6 
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CALCOIATED  GROSS  NEIGBT  -  0.48047E-t-05 


*  *  *  END  VEHICLE  CONVERSEHCE 

2  CONVER(»HCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAFULT 
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STANDARD  SENSITIVITY  ANALYSIS  RESULTS  (NCALC-3) 


TITLE 

A-10  SENSITIVITY  STUDY 


NUMBER  OF  SENSITIVITY  VARIABLES,  NSV  -  2 

NUMBER  OF  SENSITIVITY  OBJECTIVES,  NSOBJ  -  1 


GLOBAL  NUMBERS  ASSOCIATED  WITH  SENSITIVITY  VARIABLES 
514  337 


GLOBAL  NUMBERS  ASSOCIATED  WITH  SENSITIVITY  OBJECTIVES 
585 


NOMINAL  DESIGN  INFORMATION 

VALUES  OF  SENSITIVITY  VARIABLES 
O.lOOOOE+00  0.16000E-f02 


VALUES  OF  SENSITIVITY  OBJECTIVE  FUNCTIONS 
0.50122E-f05 


SENSITIVITY  ANALYSIS  RESULTS 


GLOBAL  VARIABLE  514 


X 


F(X) 


0.2500E+00 

0.4000E-»-00 

0.5500E-I-00 

0.6900E+00 

0.8400E-t-00 

0.9900E-t-00 


0.4958E-«-05 

0.4914E-I-05 

0.4e76E-»-05 

0.4846E-«-05 

0.4818E-»-05 

0.4793E-I-05 


GLOBAL  VARIABLE  337 


X 


F(X) 


0.1750E+02 

0.1900E-f02 

0.2050E+02 

0.2200E-I-02 

0.2350E+02 

0.2500E-I-02 


0.4970E+05 

0.4931E-t-05 

0.4896E-t-05 

0.4864E+05 

0.4834E-f05 

0.4805E-«'05 
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Xn.  EXAMPLE  THREE 


A.  OVERVIEW 

This  escample  will  demonstrate  the  use  of  the  Optimization  Method  of 
anal3rsis.  The  goal  of  this  exercise  is  to  reduce  the  take-off  gross  wmght  by 
reducing  the  wing  reference  area,  subject  to  a  constraint  on  the  turning  rate 
during  combat.  In  this  case,  a  hypothetical  contract  for  the  aircraft  under 
development  specifies  a  fnininnitn  turning  rate  of  10  degrees  per  second  while 
delivering  weapons. 

B.  OPTIMIZATION  INPUTS 

The  following  inputs  will  be  needed  for  this  analysis: 

*  Objective  Variable:  Total  Aircraft  Wei^t 

Global  Number:  585 

*  Design  Variable  #1:  Wing  Reference  Area. 

Global  Number:  422 
Range:  300.0  -  800.0  ft* 

*  Constraint  #1:  Sustained  Turning  Rate,  Phase  4  (combat) 

Global  Number:  450 
Range:  10.0  - 12.0  deg/s 

Use  the  following  procedure: 

''  Start  CREATE  and  open  the  AlO  data  file. 
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•  Change  the  Analysis  Method  to  (2)  Optimization 

•  Title:  A-10  Optimization  Study 

•  Objective  Variable  Global  Number:  585 

•  Minimize 

•  1  Design  Variable 

•  Design  Variable  #1  Global  Number:  422 

•  Upper  Bound:  800.0 

•  Lower  Bound:  300.0 

•  1  Constraint 

•  Constraint  #1  Global  Number:  450 

•  Upper  Boimd:  12.0  deg/s 

•  Lower  Bound:  10.0  deg/s 

•  Aircraft  Type:  Bomber 

«  Proceed  through  the  rest  of  CREATE  without  changes. 

This  run  will  take  approximately  15  minutes.  The  output  is  quite  long 
for  the  Optimization  Method.  The  first  part  of  the  output  is  a  complete 
convergence  run  using  a  starting  value  (provided  by  CREATE)  for  the  design 
variable  and  has  been  omited  here  for  the  sake  of  brevity.  The  Optimization 
process  begins  with  the  model  converged  using  a  wing  area  of  550  square  feet. 
ACSYNT  then  proceeds  to  determine  the  minimum  weight  achievable  within 
the  given  constraint.  The  final  values  are  shown  on  page  144.  The  weight  is 
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46068  lbs  with  a  wing  area  of  387.54  square  feet,  giving  a  turning  radius  of 
9.998  degrees/second.  Compare  this  to  the  original  weight  of  47121  lbs.  A 
final  printout  is  then  made  using  this  new  wing  area. 

Obviously,  this  minimum  wing  area  should  be  taken  with  a  grain  of  salt. 
While  ACSYNT  can  perform  the  mission  given  with  this  wing,  it  does  not  take 
into  account  the  real-world  requirements  (such  as  bomb  station  spacing).  The 
A-10  also  has  additional  wing  area  built  in  as  a  survivability  enhancement 
feature.  ACSYNT  is  only  concerned  with  satisfying  the  mission  trajectory. 
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*  *  * 
* 
* 
* 
* 
* 
* 
* 

*  *  K 

INITIAL  rOMCTION  INFORMATION 
OBJ  -  0.477200E-I-05 

DECISION  VARIABLES  (X-VECTOR) 

1)  0.55000E-f03 


CONSTRAINT  VALOES  (G-VECTOR) 

1)  -0.77487E-01  -0.10209E+00 


************************ 

* 

*  C  O  N  M  I  N 

* 

*  FORTRAN  PROOIAM  FOR 

* 

*  CONSTRAINED  FONCTION  MINIMIZATION 

* 

************************ 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 


ESTIMATED  GROSS  HEIGHT  -  0.47718E-f05 
CALLING  MODOLE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  xaduoad  from  input  value  of  5.000000 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .47802E-I-05 

SLOPE  OF  HCALC  VS  HEST  LINE  -  0.70000E+00 

ESTIMATED  GROSS  HEIGHT  -  0 .47997Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of  5.000000 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0.47871E-I-05 

SLOPE  OF  HCALC  VS  HEST  LINE  >  0.30000E400 

ESTIMATED  GROSS  HEIGHT  -  0.47e30E-l-05 
CALLING  MCX>ULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Cofobat  load  factor  reduced  from  input  value  of  5.000000 
CALLING  MODULE  NUMBER  6 

CALCULATED  (MtOSS  HEIGHT  -  0.47831E405 


*  *  *  end  vehicle  convergence 
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2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


•  *  *  begin  vehicle  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  «  0 .47830E-t-0S 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raduead  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  NEIGHT  -  0 .47319E-I-05 

SLOPE  OF  NCALC  VS  NEST  LINE  -  0 .70000E-I-00 

ESTIMATED  GROSS  WEIGHT  -  0.46127E-f-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raduead  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .46915Et05 

SLOPE  OF  WCALC  VS  NEST  LIME  -  0.30000E400 

ESTIMATED  GROSS  NEIGHT  -  0.47160E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  raduead  from  input  valua  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  GROSS  WEIGHT  -  0.4715eE+05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0 .47160E-I-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raduead  from  input  valua  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  (»OSS  WEIGHT  -  0.45S79E-»-05 
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SLOPE  OF  WCALC  VS  ffEST  LINE  -  0.70000E+00 


ESTIMATED  GROSS  WEIGHT  ->  0.42222E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combct  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  S 

CALCULATED  GROSS  WEIGHT  -  0 .44317E-I-05 

SLOPE  or  WCALC  VS  WEST  LINE  -  0.30000E+00 

ESTIMATED  GROSS  WEIGHT  -  0.43115E+05 
CALLING  MODULE  NUMBER  1 
CALLING  M(H}ULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .45103E-«-05 

SLOPE  OF  WCALC  VS  WEST  LIME  -  0.30000EtO0 

ESTIMATED  GROSS  WEIGHT  -  0.45099E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  KX)DULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.45100E+05 


•  *  *  END  VEHICLE  CCBTVERGEMCE 


3  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 


•  *  •  begin  vehicle  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0 .45099E-I>05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.45S40E-f05 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .70000E-«-r  j 

ESTIMATED  GROSS  WEIGHT  -  0 .47570E-»-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  GROSS  WEIGHT  -  0 .46449E-t-05 


SLOPE  OF  WCALC  VS  WEST  LINE  -  0.30000E+00 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 


137 


ESTIMATED  CROSS  HEIGHT  -  0.46082E+05 
CALLING  MODOLE  NUMBER  1 
CALLING  MCH>ULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  fr<»i  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0.46084E-«-05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  COMVEROTMCE  ITERATIONS  REQUIRED 
CALLING  MCH)ULE  NUMBER  10 


INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  •  begin  vehicle  convergence 


ESTIMATED  GROSS  HEIGHT  -  0.4€082E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARNIMG  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 . 46146E-»-05 


SLOPE  OF  HCALC  VS  HBST  LIME  -  0 .70000E-I-00 

ESTIMATED  GROSS  HEIGHT  -  0 .46293Et05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  >  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  « 

CALCULATED  GROSS  HEIGHT  -  0.46195E+05 

SLOPE  OF  HCALC  VS  HBST  LINE  -  0 .30000E-«-00 

ESTIMATED  GROSS  HEIGHT  -  0.46165E-»-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Cooibat  load  factor  raducad  from  iiq>ut  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .46167B-»'05 


*  *  •  end  vehicle  convergence 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 
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*  *  •  begin  vehicle  convergence 


ESTIMATED  GROSS  HEIGHT  -  0.46165E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

IfARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  GROSS  WEIGHT  -  0 . 45398E-t-05 


SLOPE  OF  NCALC  VS  NEST  LINE  -  0.70000E400 


ESTIMATED  GROSS  WEIGHT  -  0 .43610E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.44694E405 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0.30000E-fOO 

ESTIMATED  GROSS  WEIGHT  -  0.45107E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .45102E405 

SLOPE  OF  WCALC  VS  WEST  LIME  -  0.30000E400 

ESTIMATED  GROSS  WEIGHT  -  0 .4S099E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0.45100E+05 


*  *  *  END  VEHICLE  CONVERGENCE 


3  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

*  *  *  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  WEIGHT  -  0 .45099E405 
CALLING  MCE>ULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  reduced  from  input  value  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 . 451S5E405 

SLOPE  OF  WCALC  VS  WEST  LINE  •  0 .70000E400 
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0.45317E+05 


ESTIMATED  GROSS  WEIGHT  - 
CALLING  MOOOLE  HOMBER  1 
CALLING  MOOOLE  NOMBER  2 
WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NOMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 .4S226E-t-05 

SLOPE  OF  WCALC  VS  WEST  LIME  -  0 .SOOOOEtOO 

ESTIMATED  GROSS  WEIGHT  -  0 .45191E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  WEIGHT  -  0 . 45191Et05 


•  •  •  end  vehicle  CONVERGENCE 


2  CONVER(»MCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 


•  •  •  begin  vehicle  convergence 

ESTIMATED  CROSS  WEIGHT  -  0 . 45191E-t-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARMING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  GROSS  WEIGHT  -  0.45849E-I-05 

SLOPE  or  WCALC  VS  WEST  LINE  -  0.70000E400 

ESTIMATED  GROSS  WEIGHT  •  0 .47384E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  « 


CALCULATED  GROSS  WEIGHT  -  0 .46393E-f05 


SLOPE  or  WCALC  VS  WEST  LINE  -  0.30000E-f00 

ESTIMATED  GROSS  WEIGHT  -  0 .46066E-I-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  € 


CALCULATED  GROSS  WEIGHT  -  0 . 46068Et05 


*  *  *  END  VEHICLE  CONVERGENCE 
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2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 


INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 


*  *  *  BEGIN  VEHICLE  CONVERGENCE 


ESTIMATED  GROSS  HEIGHT  -  0 .46066E4-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  Input  valua  of 
CALLING  MODULE  NUMBER  € 

CALCULATED  GROSS  HEIGHT  «  0 . 46129E-t-05 

SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .70000E-t-00 


ESTIMATED  GROSS  HEIGHT  -  0 .46277E-t-0S 

CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  Input  valua  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  GROSS  HEIGHT  -  0.46180E4'05 


SLOPE  OF  HCALC  VS  WEST  LINE  -  0 .SOOOOEtOO 


ESTIMATED  GROSS  HEIGHT  >  0 .46149E-f05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

WARNING  :  Combat  load  factor  raducad  from  input  valua  of 
CALLING  MODULE  NUMBER  6 


CALCULATED  GROSS  HEIGHT  -  0 .46149E-t-05 


*  *  *  END  VEHICLE  CONVERGENCE 


2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODULE  NUMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 
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FINAL  OPTIMIZATION  INFORMATION 


OBJ  >  0.4606e0E-«-05 


DECISION  VARIABLES  (X-VECTOR) 
1)  0.38754E+03 


CONSTRAINT  VALDES  (G-VECTOR) 

1)  0.10319E-03  -0.16675E+00 


THERE  ARE  1  ACTIVE  CONSTRAINTS 
CONSTRAINT  NOMBERS  ARE 
1 


THERE  ARE  0  VIOLATED  CONSTRAINTS 

THERE  ARE  0  ACTIVE  SIDE  CONSTRAINTS 


TERMINATION  CRITERION 

ABS(OBJ(I)-OBJ(I-l) )  LESS  THAN  DABFDN  FOR  3  ITERATIONS 
NOMBER  OF  ITERATIONS  -  4 

OBJECTIVE  FDNCTION  MAS  EVALUATED  10  TIMES 


CONSTRAINT  FUNCTIONS  MERE  EVALUATED  10  TIMES 


•  *  «  BEGIN  VEHICLE  CONVERGENCE 

ESTIMATED  GROSS  HEIGHT  -  0.4S149E+05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

EARNING  :  Combat  load  factor  raducad  from  input  valua  of  5.000000 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  >  0 .46087E-t-05 

SLOPE  OF  HCALC  VS  MEST  LIME  -  0.70000E+00 

ESTIMATED  GROSS  HEIGHT  -  0 . 45943E-«-05 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  1  Combat  load  factor  raducad  from  input  valua  of  5.000000 
CALLING  MODULE  NUMBER  6 

CALCULATED  GROSS  HEIGHT  -  0 .46038E-t-05 

SLOPE  OF  HCALC  VS  NEST  LINE  -  0.30000E+00 

ESTIMATED  GROSS  HEIGHT  >  0 .480e8E405 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 

HARMING  :  Combat  load  factor  raducad  from  input  value  of  5.000000 
CALLING  MODULE  NUMBER  6 
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CALCOIATED  GROSS  HEIGHT  -  0 .46068E-t-05 


*  *  *  END  VEHICLE  CONVERGENCE 

2  CONVERGENCE  ITERATIONS  REQUIRED 
CALLING  MODOLE  NOMBER  10 

INSUFFICIENT  THRUST  IF  ENGINE  LOST  OFF  CATAPULT 
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OPTIMIZATION  RESULTS 


OBJECTIVE  FUNCTION 


GLOBAL 

LOCATION 

585  FUNCTION  VALUE  0.46068E+05 

DESIGN 

VARIABLES 

D.  V. 

GLOBAL 

LOWER 

UPPER 

ID 

NO. 

VAR.  NO. 

BOUND  VALUE 

BOUND 

1 

1 

422 

0.30000E-I-03  0.38754E-t-03 

0.80000E-I-03 

DESIGN  CONSTRAINTS 


GLOBAL 

LONER 

UPPER 

ID 

VAR.  NO. 

BOUND 

VALUE 

BOUND 

1 

450  0. 

10000Et02 

0.999a5E-l-01 

0.12000E-«-02 

CALLING 

MODULE  NUMBER 

1 

CALLING 

MODULE  NUMBER 

2 

NARNING  :  Combat  load  factor  raduoad  from  input  valua  of  5.000000 
CALLING  MODULE  NUMBER  6 
CALLING  MODULE  NUMBER  1 
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NASA/AMES  A  C  S  Y  H  T  **FINAL  ODTPOT** 

FOSELAGE  DEFINITION  NACELLE  DEFINITION  NACELLE  LOCATION 


X 

R 

AREA  X-XNOSE 

0.00 

0.00 

0.00  0.00 

1.07 

0.78 

1.92  2.72 

2.13 

1.26 

4.98  8.17 

3.20 

1.63 

8.36  10.89 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

6.40 

2.35 

17.36 

7.47 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.80 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

10.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21  30 

28.80 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

38.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.06 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 

••FUSELAGE** 

MAX.  DIAMETER... 

5.260 

FINENESS 

RATIO.  . 

.  ..  10.139 

SURFACE 

AREA. . . . 

702.864 

VOLUME. . 

809.360 

R 

AREA 

X 

Y 

Z 

2.18 

14.92 

32.00 

5.25 

0.00 

2.18 

14.92 

32.00 

-5.25 

0.00 

2.18 

14.92 

2.18 

14.92 

**PODS** 

4.359 

149.095  (EACH) 


145 


NASA/AMES  A  C  S  Y  N  T  **FIHAI.  OOTPOT** 
DIMBHSZOMS  OF  PLANAR  SURFACES 


WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN  AREA . 

387.5 

118.4 

54.1 

0.0 

(SQ.FT.) 

SURFACE  AREA... 

775.4 

189.0 

102.7 

0.0 

(SQ.FT.) 

VOLUME . 

311.3 

67.8 

27.1 

0.0 

(CU.FT.) 

SPAM . 

50.344 

18.815 

9.702 

0.000 

(FT.) 

L.E.  SWEEP . 

0.000 

0.000 

0.000 

0.000 

(DBG. ) 

C/4  SWEEP . 

“1.794 

“0.096 

-3.982 

0.000 

(DBG.) 

T.E.  SWEEP . 

“7.140 

-0.385  -15.559 

0.000 

(DEG.) 

ASPECT  RATIO  .. 

6.540 

2.990 

1.740 

0.000 

ROOT  CHORD . 

9.275 

6.324 

6.927 

0.000 

(FT.) 

ROOT  THICKNESS. 

17.807 

9.866 

10.806 

0.000 

(IN.) 

ROOT  T/C  . 

0.160 

0.130 

0.130 

0.000 

TIP  CHORD . 

6.121 

6.261 

4.225 

0.000 

(FT.) 

TIP  THICKNESS.. 

9.549 

9.767 

6.084 

0.000 

(IN.) 

TIP  T/C  . 

0.130 

0.130 

0.120 

0.000 

TAPER  RATIO  . . . 

0.660 

0.990 

0.610 

0.000 

MEAN  AERO  CHORD 

7.805 

6.293 

5.685 

0.000 

(FT.) 

LE  ROOT  AT . 

22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4  ROOT  AT. . . . 

25.065 

46.987 

46.535 

0.000 

(FT.) 

TB  ROOT  AT . 

32.021 

51.730 

51.730 

0.000 

(FT.) 

LB  M.A.C.  AT... 

22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4  M.A.C.  AT.. 

24.698 

46.979 

46.225 

0.000 

(FT.) 

TE  M.A.C.  AT. . . 

30.552 

51.699 

50.488 

0.000 

(FT.) 

Y  M.A.C.  AT _ 

11.727 

4.696 

4.459 

0.000 

LE  TIP  AT . 

22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4  TIP  AT . 

s  s  s  s 

24.277 

46.971 

45.860 

0.000 

(FT.) 

TE  TIP  AT . 

s  s  s  s 

28.868 

51.667 

49.029 

0.000 

(FT.) 

ELEVATION . 

s  s  s  s 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME  COEFF.  . 

s  s  s  • 

0.872 

0.060 

0.000 

EXT 

E  M  S 

IONS 

Strsfcs  Rssr  Extsnsion 

Csntxold  looatlon  st. 

0.000 

0.000 

Axss . 

0.000 

0.000 

Wsttsd  Arss . . . . 

0.000 

0.000 

VelusM . 

0.000 

0.000 

Swssp  Angls . . . . 

0.000 

F  U  E 

L  T 

A  M  K  S 

TANK  VOLUME 

WEIGHT  DENSITY 

WING 

57. 

2750 

48 

.62 

FUSfl 

179. 

8689 

48 

.62 

FUSf2 

0. 

0 

50 

.00 

TOTAL 

11438 

• 

MISSION  FUEL  REQUIRED-  11438. 

AVAILABLE  FUEL 

VOLUME  IN  WING- 

298. 

AIRCRAFT  WEIGHT  - 
AIRCRAFT  VOLUME  - 
AIRCRAFT  DENSITY  - 
CASE-  4 


46067.734  Lbs. 
1215.551  Cu.Ft. 

37.899  Lbs. /Cu.Ft. 


CALLING  MODULE  NUMBER  2 
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TRAJECTORY  OUTPUT 


MISSION  1  (PAYLOAD  -  14000.  LB) 


PHASE 

M 

H 

CL 

ALPHA 

WFUEL 

TIME 

VEL 

SFC(I) 

THRUST (I) 

CD 

GAMIA 

H 

NA 

Q 

SFC (U) 

THRUST (U) 

CD INST 

L/D 

THR/THA 

PR 

X 

CLIMB 

0.53 

5000. 

0.3494 

2.81 

99.3 

0.87 

576 

0.59 

11118. 

0.0308 

8.89 

45623.4 

311.98 

340 

CYCLE 

0.58 

0. 

0.0012 

11.34 

2.00 

1.00 

5 

CRUISE 

0.50 

5000. 

0.3686 

3.01 

2412.6 

42.46 

549 

0.90 

3778. 

0.0317 

0.00 

43210.8 

254.79 

308 

CYCLE 

0.86 

3925. 

0.0012 

11.64 

0.67 

1.00 

230 

CRUISE 

0.50 

100. 

0.3004 

2.42 

495.2 

7.26 

558 

0.98 

4164. 

0.0292 

0.00 

42715.6 

298.70 

369 

CYCLE 

0.94 

4335. 

0.0012 

10.29 

0.65 

1.00 

40 

COMBAT 

0.60 

100. 

0.7751 

6.41 

3794.1 

30.00 

670 

0.65 

11741. 

0.0567 

0.00 

36073.5 

356.43 

531 

CYCLE 

0.63 

12018. 

0.0013 

13.68 

1.94 

1.00 

198 

CRUISE 

0.50 

100. 

0.2506 

2.00 

471.3 

7.26 

558 

0.98 

3966. 

0.0277 

0.00 

35602.2 

296.53 

369 

CYCLE 

0.94 

4143. 

0.0012 

9.04 

0.62 

1.00 

40 

CLIMB 

0.51 

5000. 

0.2721 

2.17 

73.3 

0.65 

563 

0.59 

11178. 

0.0283 

12.39 

35528.9 

309.69 

324 

CYCLE 

0.58 

0. 

0.0012 

9.62 

2.00 

1.00 

3 

CRUISE 

0.50 

5000. 

0.2844 

2.28 

2341.3 

42.46 

549 

0.96 

3425. 

0.0287 

0.00 

33187.6 

253.66 

308 

CYCLE 

0.92 

3569. 

0.0012 

9.92 

0.61 

1.00 

230 

LOITER 

0.27 

500. 

0.8075 

7.59 

766.3 

20.00 

301 

0.82 

2791. 

0.0678 

0.00 

32421.3 

250.65 

106 

CYCLE 

0.81 

2835. 

0.0011 

11.90 

0.38 

1.00 

59 
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FOEL  SOMMARIES 


MISSIOM  FOEL  «»  10798. 
RESERVE  FOEL  -  540. 
TRAPPED  FOEL  -  100. 


TOTAL  FOEL  -  11438. 


TAKEOFF  FOEL 
HFTOl  -  120 . 

IIFT02  -  225. 


FOEL  CARRIED  : 
EXTERNALLY  -  0 . 

INTERNALLY  11438. 


ADDITIONAL  COMBAT  PARAMETERS 


CONDITIONS 

PS 

NZ 

TDOT 

RADIOS 

ALPHA 

CL 

CD 

M-  0.60 

1  G  FLIGHT 

98.8 

1.00 

0.00 

0. 

1.55 

0.207 

0.0264 

H-  100 . 

SOSTAINED 

0.0 

3.77 

10.00 

3837. 

6.41 

0.775 

0.0567 

MAX.  INST. 

-550.2 

5.96 

16.17 

2372. 

11.00 

1.225 

0.2264 

COMBAT  ENERGY  -  0.177918E-I-06 


BLOCK  TIME 
BLOCK  RANGE 

TAKEOFF  FIELD  LENGTH (TOTAL  RON) 
LANDING  FIELD  LENGTH (TOTAL  RON) 
LANDING  FIELD  LENGTH (GROOND  RON) 
HEIGHT  FOR  LANDING  CALCOLATION 
LANDING  THROST  TO  HEIGHT  RATIO 

TAKEOFF  HEIGHT 
LANDING  HEIGHT 


2.516 

HOORS 

806.2 

N.  M. 

3268. 

FEET 

6438. 

FEET 

2193. 

FEET 

39605. 

POONDS 

0.485 

46068. 

POUNDS 

32421. 

POONDS 

CALLING  MODOLE  NOMBER  3 


Datallvd  Aarodynamlos  Output 

Maoh  -  0.20 
Altituda  >  0 . 


Paraaita  Drag 


Induoad  Drag 


Friction 

.0190 

Alpha 

Body 

.0042 

0.0 

Hing 

.0079 

3.0 

Strakas 

.0000 

6.0 

H.  Tail 

.0019 

0.0 

V.  Tail 

.0021 

9.0 

Canard 

.0000 

12.0 

Pods 

.0028 

15.0 

Engina 

.0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 

Intarfaranoa 

.0059 

Nava 

.0000 

Extarnal 

.0057 

Tanks 

.0000 

Bondbs 

.0000 

Cl 

Cd 

L/D 

Cm 

0.005 

0.0306 

0.2 

0.048 

0.338 

0.0368 

9.2 

-.037 

0.644 

0.0541 

11.9 

-.122 

0.005 

0.0306 

0.2 

0.048 

0.930 

0.0810 

11.5 

-.208 

1.205 

0.1173 

10.3 

-.298 

1.475 

0.1632 

9.0 

-.391 

1.747 

0.2196 

8.0 

-.489 

2.026 

0.2878 

7.0 

-.589 

2.301 

0.3657 

6.3 

-.686 

Slopa  Factors 
ClAlpha 
Cdl'' .  5 Alpha 


a  Cdtrlm  Daltrlm  Zona 


0.00 

0.0000 

0.0 

2 

0.89 

0.0000 

0.0 

2 

0.86 

0.0000 

0.0 

2 

0.00 

0.0000 

0.0 

2 

0.84 

0.0000 

0.0 

2 

0.82 

0.0000 

0.0 

2 

0.80 

0.0000 

0.0 

2 

0.79 

0.0000 

0.0 

2 

0.78 

0.0000 

0.0 

2 

0.77 

0.0000 

0.0 

2 

0.0957 

0.0241 
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Stoz«s 

Extra 

Caaibaz 


0000 

0057 

0000 


Cdnin 

.0306 

Mach  ■ 

0.30 

Altitude  • 

0. 

Parasite  Drag 
Friction 

.0189 

Body 

.0042 

Wing 

.0078 

St rakes 

.0000 

R.  Tall 

.0019 

V.  Tall 

.0021 

Canard 

.0000 

Pods 

.0028 

Engine 

.0000 

Cowl 

.0000 

Boattall 

.0000 

Interference 

.0059 

Have 

.0000 

External 

.0057 

Tanka 

.0000 

Bombs 

.0000 

Stores 

.0000 

Extra 

.0057 

Casiber 

.0000 

cSUn  .0305 


Detailed 

0 

1 

1 

0 

H 

Mach 

a 

0.60 

Altitude 

■ 

5000. 

Parasite 

Drag 

Friction 

.0183 

Body 

.0041 

Hlng 

.0076 

Strakes 

.0000 

B.  Tall 

.0019 

V.  Tall 

.0020 

Canard 

.0000 

Pods 

.0027 

Engine 

.0000 

Cowl 

.0000 

Boattall 

.0000 

Interference 

.0059 

Have 

.0000 

External 

.0000 

Tanks 

.0000 

Bombs 

.0000 

Stores 

.0000 

Extra 

.0000 

Casber 

.0000 

- TWSn 


Induced  Drag 
Alpha  Cl 

Cd 

L/D 

Cm 

e  Cdtrlm  Deltrim  Zone 

0.0 

0.005 

0.0305 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

3.0 

0.345 

0.0369 

9.3 

-.042 

0.90 

0.0000 

0.0 

2 

6.0 

0.655 

0.0546 

12.0 

-.130 

0.87 

0.0000 

0.0 

2 

0.0 

0.005 

0.0305 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

9.0 

0.945 

0.0821 

11.5 

-.219 

0.84 

0.0000 

0.0 

2 

12.0 

1.222 

0.1190 

10.3 

-.311 

0.82 

0.0000 

0.0 

2 

15.0 

1.492 

0 . 1654 

9.0 

-.407 

0.80 

0.0000 

0.0 

2 

18.0 

1.762 

0.2220 

7.9 

-.506 

0.79 

0.0000 

0.0 

2 

21.0 

2.041 

0.2909 

7.0 

-.608 

0.78 

0.0000 

0.0 

2 

24.0 

2.239 

0.9546 

2.3 

-.796 

0.26 

0.0000 

0.0 

3 

Slope  Factors 

ClAlpha  0.0931 

Cdl''.5Alpha  0.0401 


Output 


Induced  Drag 
Alpha  Cl 

Cd 

L/D 

Cm 

e  Cdtrlm  Deltrim  Zone 

0.0 

0.005 

0.0242 

0.2 

0.047 

0.00 

0.0000 

o.c 

2 

3.0 

0.386 

0.0320 

12.1 

-.057 

0.94 

0.0000 

0.0 

2 

6.0 

0.730 

0.0529 

13.8 

-.157 

0.90 

0.0000 

0.0 

2 

0.0 

0.005 

0.0242 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

9.0 

1.041 

0.0844 

12.3 

-.258 

0.88 

0.0000 

0.0 

2 

12.0 

1.283 

0.2572 

5.0 

-.379 

0.34 

0.0000 

0.0 

3 

15.0 

1.503 

0.3789 

4.0 

-.495 

0.31 

0.0000 

0.0 

3 

18.0 

1.704 

0.5252 

3.2 

-.618 

0.28 

0.0000 

0.0 

3 

21.0 

1.882 

0 . 6933 

2.7 

-.748 

0.26 

0.0000 

0.0 

3 

24.0 

2.022 

0.8750 

2.3 

-.878 

0.23 

0.0000 

0.0 

3 

Slope  Factors 

ClAlpha  0.0841 

Cdl^.SAlpba  0.0384 
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Mach 

Altitude 


0.70 

5000. 


Paraalta  Drag  Induced  Drag 

rriction  .0180  Alpha  Cl  Cd  L/D 

Body  .0040  0.0  0.005  0.0240  0.2 

Wing  .0075  3.0  0.414  0.0327  12.7 

Strakea  .0000  6.0  0.779  0.0559  13.9 

B.  Tail  .0018  0.0  0.005  0.0240  0.2 

V.  Tall  .0020  9.0  1.100  0.1739  6.3 

Canard  .0000  12.0  1.331  0.2738  4.9 

Pods  .0027  15.0  1.557  0.4020  3.9 

Engine  .0000  18.0  1.675  0.5792  2.9 

Cowl  .0000  21.0  1.778  0.7240  2.5 

Boattall  .0000  24.0  1.859  0.8785  2.1 


Interference 

.0059 

Nave 

.0000 

External 

.0000 

Slope  Factors 

Tanka 

.0000 

ClAlpha 

0.0772 

Bombs 

.0000 

Cdl^.SAlpha 

0.0385 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 

Cm  e  Cdtrlm  Deltrim  Zone 


0.047 

0.00 

0.0000 

0.0 

2 

-.064 

0.96 

0.0000 

0.0 

2 

-.170 

0.92 

0.0000 

0.0 

2 

0.047 

0.00 

0.0000 

0.0 

2 

-.288 

0.39 

0.0000 

0.0 

3 

-.401 

0.35 

0.0000 

0.0 

3 

-.522 

0.31 

0.0000 

0.0 

3 

-.614 

0.25 

0.0000 

0.0 

4 

-.740 

0.22 

0.0000 

0.0 

4 

-.867 

0.20 

0.0000 

0.0 

4 

CALLING  MODOLE  NUMBER 


4 


ENGINE  SOIAARY 


ENGINE  DIAMETER  -  4.35  FEET 

ENGINE  LENGTH-  8.33  FEET 
ENGINE  HEIGHT-  1478.00  POUNDS 
BYPASS  RATIO  -  6.23 

NO  OF  ENGINES  PER  AC  -  2. 

A/C  DRAG  REF  AREA  -  387.54  SQ  FEET 

INLET  CAPTURE  AREA  PER  ENG  -  6.190  SQ  FEET 

PNCC  -  PERCENT  OF  ENGINE  CORRECTED  AIRFLOW 
THRUST  -  ENGINE  THRUST  (POUNDS  PER  ENGINE) 

SFC  -  ENGINE  SPECIFIC  FUEL  CONSUMPTION 

WTOT  -  ENGINE  TOTAL  AIRFLOW  (LBS/SEC  PER  ENGINE) 

OV  EF  -  ENGINE  OVERALL  EFFICIENCY 

PR  EF  -  ENGINE  PROPULSIVE  EFFICIENCY 

TPR  -  INLET  TOTAL  PRESSURE  RECOVERY  (TO  EN  FACE) 

NPR  -  NOZZLE  PRESSURE  RATIO 

TIT  -  TURBINE  INLET  TEMPERATURE  (DEG  R) 

EGT  -  ENGINE  EXHAUST  GAS  TEMPERATURE 

CPR  -  OVERALL  COMPRESSOR  PRESSURE  RATIO 

THRUSTU-  THRUST  PER  ENGINE  IN  LBS,  W/0  INSTAL  DRAG  CORR 

SFCU  -  SFC, 1/HR,  N/0  INSTALLATION  DRAG  CORR 

ABYAC  -  FREESTREAM  BYPASS  FLOW  AREA/AC 

ABLAC  -  FREESTREAM  INLET  BLEED  FLOW  AREA/AC 

ANOZ  -  AREA  OF  NOZZLE  EXIT,  FT**2 

BETA  -  NOZZLE  BOATTAIL  ANGLE  IN  DEGREES 

AO/AC  -  FREE  STREAM  TO  CAPTURE  AREA  RATIO 

COINS  -  TOT  INSTALLATION  DRAG  COEF  PER  A/C  (SWING  REF) 

CDADO  -  ADDITIVE  DRAG  COEF  PER  A/C  (SWING  REF) 

COSP  -  SUBSONIC  SPILL  DRAG  COEFF  PER  A/C  (SWING  REF) 
CDBL  -  INLET  BLEED  DRAG  COEF  PER  A/C  (SWING  REF) 

COBP  -  INLET  BYPASS  DRAG  PER  A/C  (SWING  REF) 

COAUX  -  AUX  AIR  SYSTEM  DRAG  COEF  PER  A/C  (SWING  REF) 
CDDIV  -  INLET  BO.  LAYER  DIVERT  DRAG  PER  A/C  (SWING  REF) 
CDBT  »  NOZZLE  BOATTAIL  DRAG  COEF  PER  A/C  (SWING  REF) 
COINF  -  DRAG  COEF  OF  BASE  AREA  BETWEEN  NOZZLES  (PER  A/C) 

INSTALL  DRAG  COEF  SCALE  FACTORS 


SFINSP 

■1 

1.0000 

SFADP 

m 

1.0000 

SFADSP 

m 

1.0000 

SFBEP 

m 

1.0000 

SFBPP 

m 

1.0000 

SFAUXP 

m 

1.0000 

SFDIVP 

m 

1.0000 

SFIP 

m 

1.0000 

SFBTP 

m 

1.0000 
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lACH  -  0.000  ALTITOOB  -  0.00  FEET 


PNCC 

THROST 

SFC 

NTOT 

OV  EF 

PR  EF 

TPR 

MPR 

TIT 

E6T 

CPR 

THRUSTO 

SFCO 

ABTAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADO 

COSF 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO  INF 

100.0 

9065. 

0.364 

290. 

0.000 

0.000 

1.000 

1.79 

2697. 

1540. 

22.49 

9065. 

0.364 

0.000 

0.000 

13.65 

11.17 

1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

98.0 

8298. 

0.355 

285. 

0.000 

0.000 

1.000 

1.84 

2570. 

1486. 

21.51 

8298. 

0.355 

0.000 

0.000 

13.65 

11.84 

1000.000 

0.0005 

0.0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

96.0 

7495. 

0.348 

279. 

0.000 

0.000 

1.000 

1.92 

2447. 

1441. 

20.56 

7495. 

0.348 

0.000 

0.000 

13.65 

12.66 

1000.000 

0.0006 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0000 

94.0 

6619. 

0.348 

273. 

0.000 

0.000 

1.000 

2.05 

2329. 

1405. 

19.64 

6619. 

0.348 

0.000 

0.000 

13.65 

13.59 

1000.000 

0.0006 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0000 

92.0 

5582. 

0.362 

267. 

0.000 

0.000 

1.000 

2.25 

2214. 

1380. 

18.75 

5582. 

0.362 

0.000 

0.000 

13.65 

14.62 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

90.0 

4076. 

0.431 

261. 

0.000 

0.000 

1.000 

2.54 

2105. 

1367, 

17.88 

4076. 

0.431 

0.000 

0.000 

13.65 

15.69 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

88.0 

2118. 

0.717 

256. 

0.000 

0.000 

1.000 

2.52 

1999. 

1310. 

17.04 

2118. 

0.717 

0.000 

0.000 

13.65 

16.01 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

86.0 

1872. 

0.694 

250. 

0.000 

0.000 

1.000 

2.22 

1898. 

1218. 

16.23 

1872. 

0.694 

0.000 

0,000 

13.65 

15.68 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

84.0 

1624. 

0.677 

244. 

0.000 

0.000 

1.000 

1.95 

1802. 

1131. 

15.44 

1624. 

0.677 

0.000 

0.000 

13.65 

15.20 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

82.0 

1375. 

0.668 

238. 

0.000 

0.000 

1.000 

1.70 

1709. 

1049. 

14.68 

1375. 

0.668 

0.000 

0.000 

13.65 

14.49 

1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 
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eo.o  1114. 

0.678  232.  0.000 

0.000  1.000  1.48  1621. 

971. 

13.95 

1114. 

0.678  0.000  0.000 

13.65  13.36 

1000.000 

0.0006  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0006 

0.0000 

78.0 

827. 

0.735 

226. 

0.000 

0.000 

1.000 

1.27 

1536. 

897. 

13.24 

827. 

0.735 

0.000 

0.000 

13.65 

11.28 

1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

76.0 

458. 

1.039 

221. 

0.000 

0.000 

1.000 

1.09 

1456. 

828. 

12.56 

458. 

1.039 

0.000 

0.000 

13.65 

5.40 

1000.000 

0.0002 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0002 

0.0000 

MACH  - 

0.500 

ALTITUDE  - 

0.( 

DO  FEET 

PHCC 

THROST 

SFC 

NTOT 

OV  EF 

PR  EF 

TPR 

MPR 

TIT 

EGT 

CPR 

THROSTU 

SFCO 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

COADO 

COSP 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD  INF 

100.0 

6143. 

0.594 

336. 

0.237 

0.622 

1.000 

1.79 

2697. 

1479. 

22.49 

6231. 

0.586 

0.000 

0.000 

13.65 

9.83 

1.270 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0005 

98.0 

5867. 

0.619  329.  0.228 

0.588  1.000  2.20  2697. 

1572.  21.51 

5956. 

0.610  0.000  0.000 

13.65  11.79 

1.244 

0.0012  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0008  0.0004 

96.0 

5127. 

0.630 

323. 

0.224 

0.586 

1.000 

2.30 

2570. 

1526. 

20.56 

5216. 

0.619 

0.000 

0.000 

13.65 

12.55 

1.219 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 

94.0 

4349. 

0.655 

316. 

0.216 

0.571 

1.000 

2.46 

2446. 

1488. 

19.64 

4439. 

0.642 

0.000 

0.000 

13.65 

13.39 

1.194 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 

92.0 

3509. 

0.712 

309. 

0.200 

0.533 

1.000 

2.70 

2326. 

1460. 

18.75 

3599. 

0.694 

0.000 

0.000 

13.65 

14.32 

1.168 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

90.0 

2546. 

0.854 

302. 

0.168 

0.451 

1.000 

3.04 

2211. 

1445. 

17.88 

2637. 

0.825 

0.000 

0.000 

13.65 

15.30 

1.143 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

88.0 

1917. 

0.981 

296. 

0.148 

0.406 

1.000 

3.01 

2100. 

1384. 

17.04 

2008. 

0.936 

0.000 

0.000 

13.65 

15.63 

1.117 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 
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86.0 

1648. 

0.977  289.  0.150 

0.430  1.000  2.66  1994. 

1288.  16.23 

1739. 

0.925  0.000  0.000 

13.65  15.40 

1.092 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0011  0.0002 

84.0 

1383. 

0.986 

282. 

0.150 

0.459 

1.000 

2.34 

1892. 

1196. 

15.44 

1474. 

0.925 

0.000 

0.000 

13.65 

15.08 

1.067 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

82.0 

1118. 

1.020 

276. 

0.147 

0.493 

1.000 

2.04 

1795. 

1109. 

14.68 

1207. 

0.944 

0.000 

0.000 

13.65 

14.59 

1.041 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

80.0 

852. 

1.101 

269. 

0.139 

0.533 

1.000 

1.77 

1702. 

1026. 

13.95 

939. 

0.999 

0.000 

0.000 

13.65 

13.88 

1.016 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

78.0 

577. 

1.311 

262. 

0.121 

0.581 

1.000 

1.52 

1614. 

949. 

13.24 

660. 

1.145 

0.000 

0.000 

13.65 

12.76 

0.990 

0.0012 

0.0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 

76.0 

280. 

2.122 

255. 

0.083 

0.621 

1.000 

1.30 

1530. 

876. 

12.56 

354. 

1.675 

0.000 

0.000 

13.65 

10.73 

0.965 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0003 

lACH  - 

0.500 

AZ.TZTODE  <• 

5000.00  FEET 

P»ICC 

THRDST 

src 

NTOT 

OV  ET 

PR  EF 

TPR 

MPR 

TIT 

EOT 

CPR 

TBRDSTO 

srco 

ABTAC 

ABIAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDAOD 

COSE 

CDBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD  INF 

100.0 

5370. 

0.595 

285. 

0.232 

0.596 

1.000 

2.03 

2697. 

1523. 

22.49 

5443. 

0.587 

0.000 

0.000 

13.65 

10.80 

1.270 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 

98.0 

4865. 

0.604 

279. 

0.229 

0.590 

1.000 

2.18 

2606. 

1510. 

21.51 

4939. 

0.595 

0.000 

0.000 

13.65 

11.76 

1.245 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0 . 0000 

0.0000 

0.0008 

0.0004 

96.0 

4246. 

0.614 

273. 

0.226 

0.588 

1.000 

2.28 

2481. 

1464. 

20.56 

4320. 

0.604 

0.000 

0.000 

13.65 

12.50 

1.219 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 

94.0 

3601. 

0.639  268.  0.218 

0.574  1.000  2.44 

2361.  1428.  19.64 

3675. 

0.626  0.000  0.000 

13.65  13.35 

1.194 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000  0.0009  0.0003 
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92.0 

2904. 

0.694  262.  0.202 

0.535 

1.000 

2.68  2245. 

1403.  18.75 

2979. 

0.677  0.000  0.000 

13.65 

14.29 

1.168 

0.0013  0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000 

0.0010  0.0003 

90.0 

2104. 

0.834  256.  0.169 

0.453 

1.000 

3.02 

2134.  1389. 

17.88 

2180. 

0.805  0.000  0.000 

13.65 

15.28 

1.143 

0.0013  0.0000  0.0000 

0.0000  0.0000 

0.0000 

0.0000  0.0011 

0.0002 

88.0 

1582. 

0.959  250.  0.149 

0.407 

1.000 

2.99  2027.  1331. 

17.04 

1658. 

0.915  0.000  0.000 

13.65 

15.61 

1.118 

0.0013  0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000  0.0011 

0.0002 

86.0 

1359. 

0.955  245.  0.151 

0.432 

1.000 

2.65  1925.  1238. 

16.23 

1435. 

0.905  0.000  0.000 

13.65 

15.38 

1.092 

0.0013  0.0000  0.0000 

0.0000  0.0000 

0.0000  0.0000  0.0011 

0.0002 

84.0 

1137. 

0.966 

239, 

0.151 

0.461  1.000  2.32 

1827.  1149. 

15.44 

1213. 

0.906 

0.000 

0.000 

13.65  15.04 

1.067 

0.0013  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000  0.0010 

0.0002 

82.0 

918. 

1.000 

233. 

0.147 

0.495 

1.000 

2.03 

1733. 

1065. 

14.68 

992. 

0.925 

0.000 

0.000 

13.65 

14.55 

1.041 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

80.0 

697. 

1.084 

228. 

0.139 

0.536 

1.000 

1.76 

1643. 

986. 

13.95 

769. 

0.982 

0.000 

0.000 

13.65 

13.83 

1.016 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

78.0 

467. 

1.302 

222. 

0.120 

0.584 

1.000 

1.51  1558. 

911.  13.24 

536. 

1.134 

0.000 

0.000 

13.65 

12.67 

0.991 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000  0.0000 

0.0009  0.0003 

76.0 

218. 

279. 

2.186  216.  0.080 
1.705  0.000  0.000 

0.621  1.000  1.29  1477. 

13.65  10.56 

841. 

12.56 

0.965 

0.0010  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0007 

0.0003 

MACH  - 

0.570 

ALTITODE  - 

5000.  ( 

OO  FEET 

PWCC 

THROST 

src 

ITTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THROSTD 

SFCD 

ABYAC 

ABIAC 

ANOZ 

BETA 

AO/AC 

CDIHS 

CD  ADO 

CDSF 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD  IMF 

100.0 

5230. 

0.629 

297. 

0.252 

0.638 

1.000 

2.03 

2697. 

1506. 

22.49 

5332. 

0.617 

0.000 

0.000 

13.65 

10.42 

1.162 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 
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98.0 

4833. 

0.647  291.  0.246 

0.620  1.000  2.30  2643. 

1536.  21.51 

4937. 

0.633  0.000  0.000 

13.65  11.70 

1.139 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0009  0.0004 

96.0 

4207. 

0.659  285.  0.242 

0.616  1.000  2.41  2517. 

1489.  20.56 

4311. 

0.643  0.000  0.000 

13.65  12.43 

1.116 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0010  0.0004 

94.0 

3561. 

0.687  279.  0.233 

0.599  1.000  2.57  2395. 

1452.  19.64 

3666. 

0.667  0.000  0.000 

13.65  13.26 

1.093 

0.0014  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0010  0.0003 

92.0 

2872. 

0.747  273.  0.216 

0.559  1.000  2.82  2278. 

1426.  18.75 

2979. 

0.720  0.000  0.000 

13.65  14.17 

1.069 

0.0014  0.0000  0.0000 

0.0000  0.0000  0.0000  O.OCOO 

0.0011  0.0003 

90.0 

2105. 

0.887  267.  0.184 

0.478  1.000  3.18  2165. 

1411.  17.88 

2209. 

0.845  0.000  0.000 

13.65  15.15 

1.046 

0.0013  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0011  0.0002 

88.0 

1601. 

1.008 

261. 

0.165 

0.434 

1.000 

3.15 

2057. 

1352. 

17.04 

1707. 

0.945 

0.000 

0.000 

13.65 

15.48 

1.023 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

86.0 

1366. 

1.011 

255. 

0.166 

0.456 

1.000 

2.79 

1953. 

1258. 

16.23 

1476. 

0.936 

0.000 

0.000 

13.65 

15.27 

1.000 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

84.0 

1137. 

1.029 

249. 

0.166 

0.482 

1.000 

2.45 

1853. 

1168. 

15.44 

1246. 

0.939 

0.000 

0.000 

13.65 

14.96 

0.976 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

82.0 

912. 

1.072 

244. 

0.162 

0.511 

1.000 

2.14 

1758. 

1083. 

14.68 

1019. 

0.959 

0.000 

0.000 

13.65 

14.52 

0.953 

0.0014 

0.0000 

0.0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

80.0 

686. 

1.173 

238. 

0.153 

0.543 

1.000 

1.85 

1667. 

1002. 

13.95 

791. 

1.017 

0.000 

0.000 

13.65 

13.88 

0.930 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0003 

78.0 

454. 

1.427 

232. 

0.133 

0.573 

1.000 

1.59 

1580. 

926. 

13.24 

555. 

1.167 

0.000 

0.000 

13.65 

12.87 

0.907 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

76.0 

209. 

2.435 

226. 

0.092 

0.563 

1.000 

1.36 

1498. 

855. 

12.56 

301. 

1.689 

0.000 

0.000 

13.65 

11.14 

0.883 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 
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PWCC 


100.0 


98.0 


96.0 


94.0 


92.0 


90.0 


88.0 


86.0 


84.0 


82.0 


MACH  -  0.700  ALTITUDE 


5000.00  FEET 


THROST 

SFC 

WTOT 

OV  EF 

PR  EF 

THROSTD 

SFCD 

ABYAC 

ABLAC 

AMOZ 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

5013. 

0.698 

325. 

0.284 

0.699 

5204. 

0.673 

0.000 

0.000 

13.65 

1.037 

0.0016 

0.0000 

0.0000 

0.0000 

4790. 

0,727  319.  0.274 

0.662 

4989. 

0.698  0.000  0.000 

13.65 

1.016 

0.0017  0.0000  0.0000 

0.0000 

4219. 

0.750  312.  0.267 

0.646 

4422. 

0.716  0.000  0.000 

13.65 

0.996 

0.0017  0.0000  0.0000 

0.0000 

3555. 

0.786  306.  0.257 

0.624 

3763. 

0.743  0.000  0.000 

13.65 

0.975 

0.0018  0.0000  0.0000 

0.0000 

2869. 

0.854  299.  0.240 

0.582 

3074. 

0.797  0.000  0.000 

13.65 

0.954 

0.0018  0.0000  0.0000 

0.0000 

2136. 

0.999  293.  0.208 

0.505 

2329. 

0.916  0.000  0.000 

13.65 

0.933 

0.0017  0.0000  0.0000 

0.0000 

1643. 

1.123  286.  0.191 

0.463 

1840. 

1.002  0.000  0.000 

13.65 

0,913 

0.0017  0.0000  0.0000 

0.0000 

1375. 

1.149  280.  0.192 

0.475 

1589. 

0.994  0.000  0.000 

13.65 

0.892 

0.0018  0.0000  0.0000 

0.0000 

1124. 

1.190  273.  0.192 

0.488 

1343. 

0.996  0.000  0.000 

13.65 

0.871 

0.0019  0.0000  0.0000 

0.0000 

881. 

1.270  267.  0.187 

0.502 

1098. 

1.019  0.000  0.000 

13.65 

0.850 

0.0019  0.0000  0.0000 

0.0000 

TPR 

BETA 

NPR 

TIT 

EGT 

CPR 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD  INF 

1.000 

9.53 

2.03 

2697, 

1467. 

22.49 

0.0000 

0.0000 

0.0000 

0.0010 

0.0006 

1.000 

11.31 

2.49 

2697. 

1560. 

21.51 

0.0000 

0.0000 

0.0000 

0.0012 

0.0005 

1.000 

12.20 

2.70 

2595. 

1543. 

20.56 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

1.000 

13.00 

2.88 

2470. 

1505. 

19.64 

0.0000 

0.0000 

0.0000 

0.0014 

0.0004 

1.000 

13.88 

3.16 

2349. 

1477. 

18.75 

0.0000 

0.0000 

0.0000 

0.0014 

0.0003 

1.000 

14.82 

3.56 

2233. 

1461. 

17.88 

0.0000 

0.0000 

0.0000 

0.0014 

0.0002 

1.000 

15.16 

3.53 

2121. 

1400. 

17.04 

0.0000 

0.0000 

0.0000 

0.0015 

0.0002 

1.000 

15.00 

3.12 

2014. 

1302. 

16.23 

0.0000 

0.0000 

0.0000 

0.0016 

0.0002 

1.000 

14.75 

2.74 

1911. 

1209. 

15.44 

0.0000 

0.0000 

0.0000 

0.0016 

0.0003 

1.000 

14.39 

2.39 

1813. 

1121. 

14.68 

0.0000 

0.0000 

0.0000 

0.0016 

0.0003 
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80.0 

642. 

1.434 

260. 

0.178 

0.507 

1.000 

2.07 

1719. 

1038. 

13.95 

856. 

1.076 

0.000 

0.000 

13.65 

13.88 

0.830 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.0003 

78.0 

402. 

1.846 

254. 

0.157 

0.489 

1.000 

1.79 

1630. 

959. 

13.24 

610. 

1.218 

0.000 

0.000 

13.65 

13.11 

0.809 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.0003 

76.0 

157. 

3.705 

247. 

0.116 

0.370 

1.000 

1.53 

1545. 

886. 

12.56 

353. 

1.650 

0.000 

0.000 

13.65 

11.89 

0.788 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

74.0 

-102. 

-4.310 

241. 

0.030 

-1.471 

1.000 

1.30 

1464. 

817. 

11.90 

69. 

6.361 

0.000 

0.000 

13.65 

9.63 

0.767 

0.0015 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0004 

MACH  - 

0.700 

ALTITUDE  - 

10000. ( 

00  FEET 

PNCC 

THROST 

SFC 

NTOT 

OV  EF 

PR  EF 

TPR 

MPR 

TIT 

EGT 

CPR 

TRROSTO 

SFCO 

ABYAC 

ABLAC 

AMOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO  INF 

100.0 

4386. 

0.696 

274. 

0.279 

0.673 

1.000 

2.30 

2697. 

1513. 

22.49 

4547. 

0.671 

0.000 

0.000 

13.65 

10.39 

1.037 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0005 

98.0 

4005. 

0.715 

268. 

0.273 

0.656 

1.000 

2.56 

2628. 

1526. 

21.51 

4170. 

0.686 

0.000 

0.000 

13.65 

11.45 

1.017 

0.001'» 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0005 

96.0 

3468. 

0.732 

263. 

0.269 

0.648 

1.000 

2.68 

2503. 

1479. 

20.56 

3636. 

0.698 

0.000 

0.000 

13.65 

12.16 

0.996 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

94.0 

2921. 

0.767 

258. 

0.259 

0.627 

1.000 

2.86 

2381. 

1442. 

19.64 

3092. 

0.724 

0.000 

0.000 

13.65 

12.97 

0.975 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.0004 

92.0 

2355. 

0.834  252.  0.241 

0.584  1.000  3.14  2265.  1416. 

18.75 

2525. 

0.778  0.000  0.000 

13.65  13.85 

0.954 

0.0018  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000  0.0015 

0.0003 

90.0 

1751. 

0.977  247.  0.210 

0.507  1.000  3.54  2153.  1402. 

17.88 

1912. 

0.894  0.000  0.000 

13.65  14.80 

0.934 

0.0017  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000  0.0014 

0.0002 
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88.0 

1344. 

1.099 

241. 

0.192 

1508. 

0.979 

0.000 

0.000 

0.913 

0.0017 

0.0000 

0.0000 

86.0 

1123. 

1.125 

236. 

0.193 

1301. 

0.971 

0.000 

0.000 

0.892 

0.0018 

0.0000 

0.0000 

84.0 

916. 

1.168  230.  0.192 

1097. 

0.976  0.000  0.000 

0.871 

0.0019  0.0000  0.0000 

82.0 

717. 

1.248 

225. 

0.188 

896. 

0.998 

0.000 

0.000 

0.851 

0.0019 

0.0000 

0.0000 

80.0 

519. 

1.417 

219. 

0.177 

696. 

1.057 

0.000 

0.000 

0.830 

0.0018 

0.0000 

0.0000 

78.0 

321. 

1.846 

214. 

0.156 

492. 

1.204 

0.000 

0.000 

0.809 

0.0018 

0.0000 

0.0000 

76.0 

118. 

3.934 

208. 

0.113 

279. 

1.664 

0.000 

0.000 

0.788 

0.0017 

0.0000 

0.0000 

74.0 

-98. 

-3.585 

203. 

0.023 

42. 

8.302 

0.000 

0.000 

0.768 

0.0014 

0.0000 

O.OOOO 

0.464 

1.000 

3.51 

2045. 

1343. 

13.65 

15.14 

0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.475 

1.000 

3.10 

1942. 

1250. 

13.65 

14.98 

0.0000 

0.0000 

0.0000 

0.0000 

0.0016 

0.489 

1.000 

2.72 

1843. 

1160. 

13.65 

14.72 

0.0000 

0.0000 

0.0000 

0.0000 

0.0016 

0.502 

1.000 

2.37 

1748. 

1076. 

13.65 

14.36 

0.0000 

0.0000 

0.0000 

0.0000 

0.0016 

0.507 

1.000 

2.06 

1658. 

996. 

13.65 

13.83 

0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.486 

1.000 

1.77 

1571. 

920. 

13.65 

13.05 

0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.354 

1.000 

1.51 

1489. 

850. 

13.65 

11.78 

0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

-2.361 

1.000 

1.28 

1411. 

783. 

13.65 

9.42 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

SEA-LEVEL  STATIC  THROST  -  9065.  (MAX) 

SEA-LEVEL  SFC  -  0.364 

CALLIH6  MODULE  NUMBER  6 


17.04 

0.0002 

16.23 

0.0002 

15.44 

0.0003 

14.68 

0.0003 

13.95 

0.0003 

13.24 
0.0004 

12.56 

0.0004 

11.90 

0.0004 
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WEIGHT  STATEMENT  -  BOMBERS 
***  WEIGHTS  DATA  ♦** 
ACSYNT  MOODLE  NUMBER  6 


COMPONENT 

AIRFRAME  STRUCTURE 
WING 
FUSELAGE 
HORIZONTAL  TAIL 
VERTICAL  TAIL 
NACELLES 
ALIGHTING  GEAR 

PROPULSION 
ENGINES  <2) 

FUEL  SYSTEM 

FIXED  EQUIPMENT 
HYD.  +  PNEU. 
ELECTRICAL 
AVIONICS 
INSTRUMENTATION 
DE-ICE/AIR  CONDITION 
AUXILIARY  GEAR 
FURNISH.  -I-  EQPT. 
FLIGHT  CONTROLS 

FUEL 

PAYLOAD 

FLIGHT  CREW  (  1) 

ARMAMENT 

AIMUNITION 

MISSILES 

BOMBS 

EXTERNAL  TANKS 
ADV.  WEAPONS  1 
ADV.  WEAPONS  2 

CALCULATED  WEIGHT 

ESTIMATED  WEIGHT 

PERCENT  ERROR 

CALLING  MODULE  NUMBER  10 


POUNDS 

KILOGRAMS 

PERCENT 

12005. 

5445. 

26.06 

4300. 

1951. 

9.34 

4419. 

2004. 

9.59 

523. 

237. 

1.14 

436. 

198. 

0.95 

805. 

365. 

1.75 

1522. 

690. 

3.30 

3577. 

1623. 

7.76 

3169. 

1438. 

6.88 

408. 

185. 

0.89 

5048. 

2290. 

10.96 

290. 

132. 

0.63 

677. 

307. 

1.47 

1566. 

710. 

3.40 

166. 

75. 

0.36 

369. 

167. 

0.80 

161. 

73. 

0.35 

465. 

211. 

1.01 

1353. 

614. 

2.94 

11438. 

5108. 

24.83 

14000. 

6350. 

30.39 

240. 

109. 

0.52 

0. 

0. 

0.00 

1000. 

454. 

2.17 

0. 

0. 

0.00 

1848. 

838. 

4.01 

0. 

0. 

0.00 

0. 

0. 

0.00 

0. 

0. 

0.00 

46068. 

20896. 

100.00 

46068. 

20896. 

0.00 
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FINAL  VALUES  OF  NAVY  MODULE  VARIABLES 


CATAPULT  TAKEOFF  CALCULATIONS, 


TAKEOFF  GROSS  WEIGHT 
CATAPULT  ENDSPEED 
LIFTOFF  ENDSPEED 
TAKEOFF  STALL  SPEED 
MINIMUM  WIND  OVER  DECK 
TAKEOFF  ACCELERATION 
TAKEOFF  CL 
TAKEOFF  CD 
ENGINE  OUT  CLIMB  SPEED 
TAKEOFF  FUEL  WEIGHT 
TAKEOFF  AOA 


-  46068.  LBS 
-161.4  KNOTS 
-164.3  KNOTS 
-108.2  KNOTS 
—45.3  KNOTS 
-0.277  G"S 
-2.856 
-0.285 

-  -41.0  FT  PER  MIN 
-11438.  LBS 
-11.57  DEGS 


ARRESTED  LANDING  CALCULATIONS 


CARRIER  LANDING  WEIGHT 
APPROACH  STALL  SPEED 
MINIMUM  APPROACH  SPEED 
CABLE  ENGAGING  SPEED 
MINIMUM  WIND  OVER  DECK 
LANDING  CL 
LANDING  CD 
LANDING  RESERVE  FUEL 
ENGINE  OUT  CLIMB  SPEED 
lANDING  AOA 


-35441.  LBS 
-94.9  KNOTS 
-113.8  KNOTS 
-145.0  KNOTS 
—19.8  KNOTS 
-3.349 
-0.408 

-  2660.  LBS 

-  814.0  FT  PER  MIN 
-11.75  DESS 


OTHER  CALCULATIONS 

OPERATING  EMPTY  WEIGHT  -21119.  LBS 
FOLDED  TAIL  HEIGHT  -  11.5  FEET 
NERROR  -  0 

CALLING  MODULE  NUMBER  11 
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SUMIARY 


-  ACSYMT  OOTPDT  -  NASA,  AMES  RESEARCH  CENTER 


A-10  OPTIMIZATION  STUDY 


GENERAL 

FUSELAGE 

WING 

HTAIL 

VTAIL 

NG 

46068. 

LENGTH 

53.3 

AREA 

387.5 

118.4 

54.1 

N/S 

118.9 

DIAMETER 

5.3 

NETTED  AREA 

775.4 

189.0 

102.7 

T/W 

0.39 

VOLUME 

809.4 

SPAN 

50.3 

18.8 

9.7 

M(Z)  ULT  11.3 

NETTED  AREA 

702.9 

L.E.  SWEEP 

0.0 

0.0 

4.0 

CREW 

1. 

FINENESS 

o 

H 

10.1 

C/4  SWEEP 

-1.8 

-0.1 

-4.0 

PASENGERS  0 . 

ASPECT  RATIO 

6.54 

2.99 

1.74 

TAPER  RATIO 

0.66 

0.99 

0.61 

ENGINE 

WEIGHTS 

T/C  ROOT 

0.16 

0.13 

0.13 

T/C  TIP 

0.13 

0.13 

0.12 

NUMBER 

2. 

w 

WG 

ROOT  CHORD 

9.3 

6.3 

6.9 

LENGTH 

8.3 

STRUCT . 

12005. 

26.1 

TIP  CHORD 

6.1 

6.3 

4.2 

DIAM. 

3.8 

PROPUL. 

3577. 

7.8 

M.A.  CHORD 

7.8 

6.3 

5.7 

WEIGHT 

1478.0 

FIX.  EQ. 

5048. 

11.0 

LOC.  OF  L.E. 

22.7 

45.4 

44.8 

TSLS 

9065. 

FUEL 

11438. 

24.8 

SFCSLS 

0.36 

PAYLOAD 

14000. 

30.4 

MISSION  SOMMARY 


PHASE 

MACH 

ALT 

FUEL 

TIME 

TAKEOFF 

0.00 

0. 

345. 

7.0 

CLIMB 

0.53 

5000. 

99. 

0.9 

CRUISE 

0.50 

5000. 

2413. 

42.5 

CRUISE 

0.50 

100. 

495. 

7.3 

COMBAT 

0.60 

100. 

3794. 

30.0 

CRUISE 

0.50 

100. 

471. 

7.3 

CLIMB 

0.51 

5000. 

73. 

0.6 

CRUISE 

0.50 

5000. 

2341. 

42.5 

LOITER 

0.27 

500. 

766. 

20.0 

LANDING 


DIST 

L/D 

THRUST 

SFC 

Q 

3268.0 

4.9 

11.34 

11117.9 

0.591 

340.2 

230.0 

11.64 

3778.3 

0.898 

308.2 

40.0 

10.29 

4163.5 

0.980 

369.0 

198.4 

13.68 

11740.9 

0.646 

531.4 

40.0 

9.04 

3965.6 

0.982 

369.0 

3.5 

9.62 

11178.2 

0.585 

324.3 

230.0 

9.92 

3425.4 

0.962 

308.2 

59.4 

11.90 

2790.7 

0.824 

106.1 

6438.5 

BLOCK  TIME  -  2.516  HR 

BLOCK  RANGE  «  806.2  NM 


COMBAT  PHASES 

MACH  ALT  PSIG  NZS  CLS  CDS  ALS  NZI  PSI  CLI  CDI  ALI  CBE 
0.60  100.  99.  3.8  0.775  0.0567  6.4  6.0  -550.  1.225  0.2264  11.0177918. 


Xin.  EXAMPLE  FOUR 


A.  OVERVIEW 

This  final  example  will  show  the  lower  weight  range  that  ACSYNT  is 
capable  of  handling.  This  will  be  an  oblique  wing  Unmanned  Air  Vehicle 
(UAV)  for  supersonic  intercepts  (inspired  by  Ref  10).  It  is  designed  for  catapult 
launch  and  parachute  recovery.  The  engine  is  a  generic  turbojet  with  9500  lbs 
of  thrust  at  sea-level  with  afterburner.  The  configuration  is  shown  in  Fig  7. 


Figure  7.  Oblique  Wing  UAV 
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B.  EXAMPLE  FOUR  INPUTS 


The  information  required  for  this  deragn  is  given  below.  It  is  asstimed 
that  the  user  is  now  familiar  with  how  to  navigate  through  CREATE  and  many 
of  the  steps  have  been  condensed. 


•  Start  CREATE  and  open  a  new  file  with  a  name  of  "UAV",  select  Simple 
Anafysis. 

•  Enter  a  prcrject  title  of  "OBLIQUE  WING  UAV". 

•  Select  item  (1)  (FIGHTER). 

•  No  change  to  the  selected  Modules. 

•  Maximum  wei^t  for  convergence:  10000.0 

•  Geometry  Selection  Menu:  select  obhque  wing,  vertical  tail,  canards, 
fuselage  pod,  fuselage  and  fuselage  fuel  (2,  5,  6,  8,  9  and  11). 

•  Oblique  Wing  Geometry: 

-  Aspect  Ratio:  6.50 

•  Surface  Area:  160.0  (ft’) 

-  Dihedral:  0.0  deg 

-  Leading  Edge  Flap  Width:  0.0 

-  Wetted  Area  Multiplier:  0.95 

-  Taper  Ratio:  0.3 

-  T/C  Ratio,  Wing  Root:  0.06 

-  T/C  Ratio,  Wing  Tip:  0.06 

-  Trailing  Edge  Flap  Width  (%  chord):  0.0 

-  Position  of  Wing  Quarter  (Dhord:  0.55 

-  Elevation  of  Wing  on  Fuselage:  1.0 

-  Fraction  of  Wing  Volume  Filled  with  Fuel:  0.0 

-  Fuel  Densily:  48.62 

•  Vertical  Tail  <3eometry  : 

•  Aspect  Ratio:  3.0 

-  Surface  Area:  20.0  (the  area  of  1  tail) 

-  Tail  Volume  Coefficient:  N/A 
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-  LE  Sweep:  30.0 

-  Wetted  Area  Multiplier:  0.9 

-  Taper  Ratio:  0.50 

-  T/C  Ratio,  Root:  0.07 

-  T/C  Ratio,  Tip:  0.06 

-  Number  of  Vertical  Tails:  1.0 

-  X  Location  of  TE  of  the  Root  Chord:  1.0 

-  Elevation  of  the  Root  Chord  of  the  Tail  on  Fuselage:  1.0 
•  Sizing  Logic:  F 

-  Vertical  Tail  Sizing  Fraction:  N/A 


*  Canard  Geometry 

-  Aspect  Ratio:  2.4 

-  Reference  Area:  25.0 

-  Canard  Volume  Coefficient:  N/A 

-  Leading  Edge  Sweep:  30.0  deg 

-  Wetted  Area  Multiplyer:  0.8 

-  Taper:  0.4 

-  T/C  Ratio,  Root:  0.06 

-  T/C  Ratio,  Tip:  0.06 

-  X  Location  of  Canard  LE:  0.05 

-  Elevation  of  Canard  on  Fuselage:  0.0 

-  Canard  Location:  1 

-  Sizing  Logic:  F 

-  Sizing  Fraction:  N/A 

*  1  Fuselage  Pod 

*  Fuselage  Pod  Geometry: 

-  Engine  Pod  Diameter:  0.00  (will  be  sized  as  engine  is  sized) 

-  Engine  Pod  Length:  0.00 
•  Stand-Off  Distance:  -2.0 

-  Angular  Orientation:  0.0 

-  X  Location  of  Pod  Leading  Edge:  0.5 

-  Wing  Pod  Symmetry:  1 

*  Fuselage  (j^metry: 

-  Maximum  Fuselage  Diameter:  3.00 

-  Fuselage  Length:  19.0 

-  Diameter  of  Nose  RadarDish:  0.0 

-  Afterbody  Fineness  Ratio:  1.9 

-  Fuselage  Fineness  Ratio:  0.0 
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•  Nose  Fineness  Ratio:  3.0 

>  Length  of  Radar  Equipment  Behind  Radar:  0.0 

-  Surface  Area  Complexity  Factor:  1.1  (10%  more  area  to  account  for  inlet) 

•  Fuselage  Wall  Thickness:  N/A 

•  Mission  Fuel  Weight  Estimate:  2000.0 

-  Tail  Type:  1 

•  1  Fuselage  Fuel  Bay 

-  Fuel  Density:  48.62  (JP-4) 

•  Trajectory  Page  1: 

-  Cruise  Mach  Number:  0.8 

-  Mach  Number  for  Max  Endurance:  0.5 

-  Design  Load  Factor:  10.0 

-  Ultimate  Load  Factor:  15.0 

-  Aircraft  Range:  600.0 

-  Maximum  Dynamic  Pressure:  1500.0 
.  Take-Off  Obstacle  Requirement:  N/A 

•  Trajectory  Page  2: 

-  Time  ior  Warm-up  and  Taxi:  5.0 

•  Power  Setting  Dm4ng  Warm-up  and  Taxi:  5 

-  Time  for  Take-off:  0.5 

-  Power  Setting  for  Take-off:  1 

•  Breguet  Altitude  Search  Flag:  0 

-  Loiter  Altitude  Search  Flag:  0 

•  Trsoectory  Page  3: 

-  Fuel  Reserve:  0.05 

-  Total  Internal  Fuel:  2500.0 

-  External  Fuel:  0.0 

-  Weight  of  Trapped  Fuel:  20.0 

-  Engine  Sizing  Flag:  -2 

-  Number  of  Cruise  Phases  (see  below):  2 

-  Total  number  of  Trajectory  Phases  (see  below):  6 

-  Debug  Option:  0 

•  Trsyectory  Phases.  Use  6.0  g’s  during  combat. 
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TABLE  10.  UAV  Mission 


Madi 

Madi 

Alt 

Alt 

Horiz 

Horiz 

Power 

Phase 

Start 

End 

Start 

End 

Dist 

Time 

Setting 

Climb 

0.00 

0 

30000 

0.0 

2 

Cruise 

0.8 

0.8 

30000 

-1 

240 

30.0 

4 

Accel 

0.8 

mm 

30000 

-1 

0 

IIQ3II 

1 

Combat 

1.6 

30000 

-1 

0 

1 

Cruise 

0.8 

0.8 

30000 

-1 

160 

20.0 

4 

Descent 

0.00 

0.00 

30000 

0 

0.0 

5 

•  Aerodynamics  Page  1: 

-  Ratio  of  Body  Base  Area  to  Max  Body  Area:  0.15 

-  Angle  of  Attack  for  Cl  max:  35.0 
.  Maximum  Angle  of  Attack:  40.0 

<  Width  of  the  Fuselage  at  the  Nose:  0. 

-  Boat  Tail  Exposure  Factor:  0.0 

-  Cl  max  Scaling  Factor  for  clean  aircraft:  1.0 
.  Laminar-Turbulent  Weighting  Factor:  0.7 

•  Aerodynamics  Page  2: 

-  Ref  Mach  Number  Array:  0.1,  0.2,  0.3,  0.4,  0.5,  0.6,  0.7,  0.8,  0.9,  1.0 

-  Cl  at  Zero  AOA  for  Body:  0.00,  0.00,  0.00,  0.00,  0.00,  0.00,  0.00,  0.00, 
0.00,  0.00 

-  Canard  Cl  at  Zero  AOA:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Wing  Cl  at  Zero  AOA:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Zero  Lift  Pitching  Moment:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 

-  Wing  Sweep  Angles:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0  (wing 
sweep  is  programmed  for  normal  Mach  nximber) 

•  Aerodynamics  Page  3: 

-  Variable  Wing  Sweep  Flag:  T 

-  Normal  Mach  Ntunber  Calculation  Code:  0 

-  Desired  Normal  Component:  0.7 

-  Max  Sweep:  60.0 

-  Min  Sweep:  0.0 
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*  Aerodsnaamics  page  4: 

-  Wing  Airfoil  Section  C!ode:  1 

-  Wing  LE  Radius/Chord  Ratio:  N/A 

-  Canard  Airfoil  Section  Code:  1 

'  Canard  LE  Radius/Chord  Ratio:  N/A 

-  Distance  Between  the  Twin  Nacelles:  N/A 

-  Supercritical  Wing  Flag:  0 
>  Body  Cross-section  Code:  0 

*  Aerodynamics  Page  5: 

-  Pod  Cowl  Exposure  Factor:  0.0 

-  Friction  Drag  Multiplying  Factor:  0.7 

-  Canard  Incidence:  N/A 

-  Average  Flap  Chord:  0. 

-  Total  Area  of  Both  Wing  Flap:  0.0 

-  Total  Span  of  Both  Flaps:  0.0 

-  Desired  Location  of  CG:  0.25 

-  Static  Margin  for  CG:  0.10 

-  Height  of  CG  Above  Fuselage  Centerline:  0.0 

-  Horizontal  Tail  Incidence:  0.0 

*  Aerodynamics  Page  6: 

-  Mach  Numbers  for  Detailed  Aero  Output:  0.6, 0.7, 0.8,  0.9, 1.0, 1.2, 1.4, 
1.6 

-  Total  Number  of  Requested  Mach  Numbers:  8 

-  Altitudes  for  Detailed  Aero  Output:  10000.0, 30000.0, 30000.0, 30000.0, 
30000.0,  30000.0,  30000.0,  30000.0 

-  Lift  Coefficients  for  Detailed  Output:  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 
0.0,  0.0 

*  Aerodynamics  Page  7: 

-  Drag  due  to  External  Bombs:  0.0 
•  Drag  due  to  External  Stores:  0.0 

-  Drag  due  to  Drop  Tanks:  0.0 

-  Drag  due  to  Additional  Items:  0.0 

*  Aerodynamics  Page  8: 

-  Cl  max  for  Landing:  -1.0 

-  Cl  max  for  Take-off:  -1.0 

-  TE  Flap  Angle  for  Landing:  0.0 

-  TE  Flap  Angle  for  Take-off:  0.0 

-  LE  Slat  Angle  for  Landing:  0.0 

-  LE  Slat  Angle  for  Take-off:  0.0 
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-  L/D  Ratio  for  Landing:  -1.0 

-  L/D  Ratio  for  Take-off:  -1.0 

-  Enter  "0"  to  Continue 

•  Engine  Type:  Change  to  T3rpe  1  (J-85) 

•  Propulsion  Page  1: 

-  Engine  Diameter:  0.0 

-  Engine  Length:  0.0 

-  Engine  Weight:  0.0 

-  Inner  Turbine  Flow  Area:  0.385 

-  Bypass  Ratio:  0.0 

-  Engine  Face  Diameter:  1.365 

-  Nozzle  Fineness  Ratio:  0.0 

-  Cowl  Fineness  Ratio:  0.0 

-  Enter  "0"  to  Continue 

•  Propulsion  Page  2: 

-  Engine  Hub/Tip  Ratio:  0.6 

-  Fuel  Heat  Value:  18600.0 

•  Scaling  Factor  for  Inlet  Capture  Area:  1.0 

-  Engine  Percent  Corrected  Airflow:  100.0 

-  Maximum  NaceUe  Diameter  Factor:  1.15 

-  Total  Nacelle  Length  Factor:  1.5 

-  Engine  Face  Mach  Number:  0.7 

•  Distance  Between  Nozzles/Nozzle  Diameter:  1.0 

-  Nozzle  Velocity  Coefficient:  0.98 

•  Propulsion  Page  3: 

-  Cooling/Primary  Airflow  Ratio:  0.0 

-  Year  of  Installation:  96.0 

-  Thrust  w/Afterbumer:  9500.0 

-  Thrust  w/o  Afterburner:  N/A 

-  Thrust/Wei^t  Ratio  at  Take-off:  N/A 

-  Afterburner  Adiabatic  Efficiency:  0.9 

-  Combustor  Adiabatic  Efficiency:  0.93 

-  Ductbumer  Adiabatic  Efficiency:  N/A 

-  Compressor  Adiabatic  Efficiency:  0.9 

•  Propulsion  Page  4: 

-  Fan  Adiabatic  Efficiency:  N/A 

-  Turbine  Adiabatic  Efficiency:  0.92 

-  Design  Fan  Pressure  Ratio:  N/A 
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-  Outer  Compressor  Pressxire  Ratio:  2.0 

-  Overall  Compressor  Pressure  Ratio:  19.0 

-  Combustor  Pressiu^  Ratio:  0.95 

-  Afterburner  Pressure  Ratio:  0.95 

-  Afterburner  Pressure  Ratio,  Not  Lit:  0.95 

-  Ductbumer  Pressure  Ratio:  N/A 

-  Ductbumer  Pressxire  Ratio,  Not  Lit:  N/A 

•  Propulsion  Page  5: 

-  Average  Compressor  Stage  Rise:  1.27 

-  Turbine  Inlet  Temp:  2600.0 

-  Afterburner  Max  Temp:  3000.0 

-  Ductbumer  Max  Temp:  0.0 

-  Incremental  Inlet  Total  Press  Recovery  Reduction:  0.0 

-  Number  of  Engines:  1 

-  Inlet  Pressure  Recovery  Code:  1 

•  Propulsion  Page  6: 

-  SFC  Multiplying  Factor  for  Condition  One:  1.0 

-  Upper  Limit  on  Mach  Number  for  Condition  One:  1.0 

-  SFC  Multiplying  Factor  for  Condition  Two:  1.0 

-  Lower  Limit  on  Mach  Number  for  Condition  Two:  1.1 
•  SFC  Multiplying  Factor  for  Burner  lit:  1.0 

-  Scale  Factor  for  Nozzle  Boat-Tail  drag:  0.0 

-  Scale  Factor  for  Total  Installation  Drag:  1.0 

-  Scale  Factor  for  Nozzle  Interference  Drag:  0.0 

•  Propxilsion  Page  7: 

-  Altitudes  for  Detailed  Output:  0.0,  1000.0,  30000.0,  30000.0,  30000.0, 
30000.0 

-  Mach  Numbers  for  Detailed  Output:  0.0,  0.6,  0.8,  1.0,  1.2,  1.6 

-  Number  of  Altitude/Mach  Number  Combinations  without  the 
Afterbxuuer  lit:  3 

-  Engine  Type  Indicator:  0 

-  Afterburner  Indicator:  2 

-  Ductbumer  Indicator:  0 

-  Nozzle  Type  Indicator:  1 

•  Weights  Page  1: 

-  Wing  Slope:  0.8  (all  composite  construction) 

-  Fuselage  Slope:  0.8 

-  Horizontal  Tail:  0.0 

-  Vertical  Tail:  0.8 
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-  Nacelles:  0.0 

-  Tending  Gear:  0.6  (parachute) 

-  Engines:  1.0 

-  Fuel  System:  1.0 

-  Hydraulics:  1.0 

•  Weights  Page  2: 

'  Electrical  System:  1.0 

-  Avionics:  1.0 

-  Instrumentation:  1.0 

-  Environmental  System:  0.0 

-  Passenger  Accommodations:  0.0 

-  APU:  0.0 

-  Fhght  Controls:  1.0 

-  Crew  Accommodations:  0.0 

-  Payload:  400.0 

•  Weights  Page  3: 

-  Wing  Pivot  Factor:  1.0 

<  External  Tank  Factor:  0.0 
.  Maximum  Mach  Number:  N/A 

-  Oblique  Wing  Material  Density:  .056  (graphite/epoxy) 

-  Oblique  Wing  Allowable  Stress:  30000.0 

-  Wing  Weight  Equation:  N/A 

-  Oblique  Wing  Weight  Equation:  1 

-  Tail  Indicator:  0 

-  Body  Equation:  1 

-  Wing  Weight  Technique:  N/A 

-  Estimate  of  Take-off  Gross  Weight:  5000.0 

•  Weights  Page  4: 

-  Weight  of  Ammunition:  0.0 

-  Weight  of  Bombs:  0.0 

-  Weight  of  Missiles:  0.0 

-  Weight  of  External  Tanks:  0.0 
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CONTROL  PROGRAM 
FOR 

INEERING  SYNTHESIS 

TITLE 


OBLIQOE  WING  OAV 


TITLE: 

OBLIQUE  WING  OAV 


CONTROL  PARAMETERS; 

CALCULATION  CONTROL,  NCALC  -  1 
NUMBER  OF  GLOBAL  DESI^  VARIABLES,  NOV  -  0 
NUMBER  OF  SENSITIVITY  VARIABLES,  NSV  -  0 
NUMBER  OF  FUNCTIONS  IN  TWO-SPACE,  N2VAR  -  0 
NUMBER  OF  APPROXIMATING  VAR.  NXAPRX  -  0 
INPUT  INFORMATION  PRINT  CODE,  IPNPUT  -  1 
DEBUG  PRINT  CODE,  IPDBG  -  0 


CALCULATION  CONTROL,  NCALC 
VALUE  MEANING 

1  SINGLE  ANALYSIS 

2  OPTIMIZATION 

3  SENSITIVITY 

4  TWO-VARIABLE  FUNCTION  SPACE 

5  OPTIMUM  SENSITIVITY 

6  APPROXIMATE  OPTIMIZATION 


*  *  ESTIMATED  DATA  STORAGE  REQUIREMENTS 


INPUT 

REAL 

EXECUTION 

AVAILABLE 

INPUT 

INTEGER 

EXECUTION 

AVAILABLE 

9 

9 

5000 

1 

1 

1000 
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AAAAAAA  CCCCCCC  SSSSSSS  Y  Y  H  N  TTTTTTT 
AAC  S  YYNNN  T 

AAC  S  YYHHN  T 

AAAAAAA  C  SSSSSSS  Y  N  N  M  T 

AAC  SYMNNT 

AAC  SYNNNT 

A  A  CCCCCCC  SSSSSSS  Y  N  N  T 


NASA-AMES  PROGRAM 
FOR 

AIRCRAFT  SYNTHESIS 
NAVAL  POSTGRADOATE  SCHOOL  VERSION 


TITLE 

OBLIQOE  NING  OAV 


AIRCRAFT  TYPE  >  FIGHTER 


TITLE; 

OBLIQUE  WING  DAV 


AIRCRAFT  TYRE  -  FIGHTER 


CONTROL  PARAMETERS: 

READ  CONTROL,  MREAD  - 

EXECOTKM)  CONTROL,  MEXEC  - 

WRITE  CONTROL,  MWRITE  - 

NUMBER  IDENTIFYING  CONVERGENCE 

VARIABLE  FOR  CONVERGED  VEHICLE,  lOBJ  - 
NUMBER  IDENTIFYING  COMPARISON 

VARIABLE  FOR  CONVERGED  VEHICLE,  JOBJ  - 
SUMIARY  OUTPUT  PRINT  CODE,  IPSUM  - 

GLOBAL  ERROR  PRINT  CODE,  KGLOBP  - 

GLOBAL  COMMON  INITIALIZATION  CODE,  INIT  - 
DEBUG  PRINT  CODE,  IPDBG  - 

GLOBAL  PLOT  CONTROL,  IGPLT  - 

DATA  TRANSFER  INFORMATION  FILE,  IRDDTR 
DATA  TRANSFER  INFORMATION  PRINT,  IPDTR 


5 

3 

S 

570 

585 

1 

0 

0 

2 

1 

7 

0 


VEHICLE  CONVERGENCE  INFORMATION: 
CONVERGENCE  TOLERANCE,  TOL  -  O.lOOOOE-03 
ESTIM  WCALC  VS  NEXT  SLOPE  -  0.75000E400 
BOUNDING  WEIGHT,  NGMAX  -  0.10000E-f05 


MODULE  IDENTIFICATION  NUMBERS: 


NUMBER 

1 

2 

3 

4 

5 

6 
8 

10 

11 

14 


MODULE 

GEOMETRY 

TRAJECTORY 

AERODYNAMICS 

PROPULSION 

STABILITY  AND  CONTROL 

WEIGHTS 

GLOBAL  I/O 

NAVY 

SUMMARY  OUTPUT 
TAKEOFF  AND  LANDING 


MODULES  ARE  CALLED  FOR  INPUT  IN  THE  FOLLOWING  ORDER: 
1  2  3  4  6 


MODULES  ARE  CALLED  FOR  EXECUTION  IN  THE  FOLLOWING  ORDER 
12  6 


MODULES  ARE  CALLED  FOR  OUTPUT  IN  THE  FOLLOWING  ORDER: 

1  2  3  4  6 

CALLING  MODULE  NUMBER  1 
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GEOMETRY  DATA  CAROS 

1***  geometry  data  *** 

2  $QNZM6 


3 

AR-  5.50, 

AREA-  160.00, 

4 

LFLAPC-0.00, 

SWFACT-0.95, 

5 

TCROOT-0.06, 

TCTIP-0.06, 

6 

XWING-0.55, 

ZROOT-  1.00, 

7 

FDENWG-  48.62, 

OOTCOD-2, 

8 

$EMD 

9  $VTAIL 

10 

AR-  3.00, 

AREA-  20.00, 

11 

SWEEP-30.00, 

SWFACT-0.90, 

12 

TCROOT-0.07, 

TCTIP-0.06, 

13 

VTMO-1.0, 

XVTAIL-1.00, 

14 

ZROOT-1.00, 

KSWEEP-0, 

15 

S12IT-F, 

16 

$EMD 

17 

$CAMARD 

18 

AR-  2.40, 

AREA-  25.00, 

19 

SWEEP-30.00, 

SWFACT-0.80, 

20 

TCROOT-0.06, 

TCTIP-0.06, 

21 

ZROOT-  0.00, 

22 

KSWEEP-0, 

ODTCOD-2, 

23 

CFRAC-0.000, 

$EMD 

24 

$FPOD 

25 

DIAM-  0.00, 

LENGTH-  0.00 

26 

THETA-  0.00, 

X-0.5, 

27 

SYMCOO-1, 

28 

$EMD 

29 

$F0S 

30 

BDMAX-  3.00, 

BODL-  19.00, 

31 

FRAB-  1.90, 

FRATIO-  0.00, 

32 

LRADAR-  0.00, 

SFFACT-  1.10, 

33 

WFOEL-  2000. 

0, ODTCOD-2, 

34 

$END 

35 

$FDEL 

36 

DBN-48. 62, 

FRAC-1 . 00, 

37 

ODTCOD-2, 

38 

$END 

END  OF  GEOMETRY  DATA  CARDS 
38  CARDS  READ 


DIMED-  0.00, 
TAPER-0.30, 
TFIAPC-0.00, 
WFRAC-0.00, 


CWT-0.08, 

TAPER-0.50, 

VTFRAOO.OOO, 

YROOT-0.00, 

ODTCOD-2, 


CVCAM— 0.80, 

TAPER-0.40, 

XCAN-0.05, 

NCAM-1, 

SIZIT-F, 


SOD— 2.00, 
ODTCOD-2, 


DRAOAR-  0.00, 
FRM-  3.00, 
WALL-  0.00, 
ITAIL-0, 


WFDEL-  0.0, 
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NASA/ AMES  A  C  S  Y  N  T  ••INITIAL  OOTPOT^^ 

FDSBLAGE  DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

0.38 

0.23 

0.17 

0.76 

0.38 

0.46 

1.14 

0.51 

0.82 

1.52 

0.62 

1.22 

1.90 

0.72 

1.64 

2.28 

0.81 

2.08 

2.66 

0.90 

2.53 

3.04 

0.97 

2.97 

3.42 

1.04 

3.41 

3.80 

1.11 

3.84 

4.18 

1.16 

4.26 

4.56 

1.22 

4.65 

4.94 

1.26 

5.02 

5.32 

1.31 

5.37 

5.70 

1.35 

5.69 

6.08 

1.38 

5.98 

6.46 

1.41 

6.24 

6.84 

1.43 

6.47 

7.22 

1.46 

6.66 

7.60 

1.47 

6.81 

7.98 

1.49 

6.93 

8.36 

1.49 

7.02 

8.74 

1.50 

7.06 

9.12 

1.50 

7.07 

9.50 

1.50 

7.07 

9.88 

1.50 

7.07 

10.26 

1.50 

7.07 

10.64 

1.50 

7.07 

11.02 

1.50 

7.07 

11.40 

1.50 

7.07 

11.78 

1.50 

7.07 

12.16 

1.50 

7.07 

12.54 

1.50 

7.07 

12.92 

1.50 

7.07 

13.30 

1.50 

7.07 

13.68 

1.49 

7.02 

14.06 

1.48 

6.88 

14.44 

1.45 

6.65 

14.82 

1.42 

6.33 

15.20 

1.37 

5.92 

15.58 

1.32 

5.44 

15.96 

1.25 

4.89 

16.34 

1.17 

4.28 

16.72 

1.07 

3.62 

17.10 

0.97 

2.93 

17.48 

0.84 

2.22 

17.86 

0.70 

1.53 

18.24 

0.53 

0.88 

18.62 

0.32 

0.33 

19.00 

0.00 

0.00 

••FUSELAGE 

MAX.  DIAMETER - 

3.000 

FINENESS 

RATIO. . . 

6.333 

SURFACE 

AREA . 

155.787 

VOLUME. . 

91.598 
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HASA/AMES  A  C  S  Y  N  T  ‘^INITIAL  OtJTPDT** 
DIMENSIONS  OF  PLANAR  SURFACES 


NING  H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN  AREA . 

160.0 

0.0 

20.0 

25.0 

(SQ.FT.) 

SURFACE  AREA . 

304.5 

0.0 

36.1 

20.5 

(SQ.FT.) 

VOLUME . 

39.7 

0.0 

2.5 

3.6 

(CD. FT.) 

SPAN . 

29.665 

0.000 

7.746 

7.746 

(FT.) 

L.E.  SWEEP . 

5.592 

0.000 

30.000 

30.000 

(DEG.) 

C/4  SNEEP . 

0.000 

0.000 

27.555 

21.741 

(DEG.) 

T.E.  SNEEP . -16.368 

0.000 

19.551 

-7.797 

(DEG.) 

ASPECT  RATIO  . 

5.500 

0.000 

3.000 

2.400 

ROOT  CHORD . 

8.298 

0.000 

3.443 

4.611 

(FT.) 

ROOT  THICKNESS . 

5.974 

0.000 

2.892 

3.320 

(IN.) 

ROOT  T/C  . 

0.060 

0.000 

0.070 

0.060 

TIP  CHORD . 

2.489 

0.000 

1.721 

1.844 

(FT.) 

TIP  THICKNESS . 

1  792 

0.000 

1.239 

1.328 

(IN.) 

TIP  T/C  . 

0.060 

0.000 

0.060 

0.060 

TAPER  RATIO  . 

0.300 

0.000 

0.500 

0.400 

MEAN  AERO  CHORD.... 

5.915 

0.000 

2.678 

3.425 

(FT.) 

LE  ROOT  AT . 

8.376 

0.000 

15.557 

0.950 

(FT.) 

C/4  ROOT  AT . 

10.450 

0.000 

16.418 

2.103 

(FT.) 

TE  ROOT  AT . 

16.673 

0.000 

19.000 

5.561 

(FT.) 

LE  M.A.C.  AT . 

8.971 

0.000 

17.545 

1.908 

(FT.) 

C/4  M.A.C.  AT . 

10.450 

0.000 

18.214 

2.765 

(FT.) 

TE  M.A.C.  AT . 

14.886 

0.000 

20.223 

5.333 

(FT.) 

Y  M.A.C.  AT . 

6.085 

0.000 

3.443 

1.660 

LE  TIP  AT . 

9.828 

0.000 

20.029 

3.186 

(FT.) 

C/4  TIP  AT . 

10.450 

0.000 

20.460 

3.647 

(FT.) 

TE  TIP  AT . 

12.317 

0.000 

21.751 

5.030 

(FT.) 

ELEVATION . 

1.500 

0.000 

1.500 

0.000 

(FT.) 

VOLUME  COEFF . 

0.000 

0.033 

-0.203 

E  X  T  E  N  S 

IONS 

Strake  Rear  Extension 

Centroid  locetion  «t 

0.000 

0.000 

Area . 

0.000 

0.000 

Netted  Area . 

0.000 

0.000 

Volume . 

0.000 

0.000 

Sweep  Angle . 

0.000 

FUEL  T 

A  N  K  S 

TANK  VOLUME 

WEIGHT 

DENSITY 

NING  0. 

0. 

48 

.62 

FUSfl  0. 

0. 

48 

.62 

FUS*2  0. 

0. 

50 

.00 

TOTAL 

0. 

MISSION  FUEL  REQUIRED- 

0. 

AVAILABLE  FUEL  VOLUME  IN  NING- 

32. 

AIRCRAFT  WEIGHT  - 

0.000 

Lbs . 

AIRCRAFT  VOLUME  - 

137.419 

Cu . Ft . 

AIRCRAFT  DENSITY  - 

0.000 

Lba./Cu.Ft. 

CASE-  4 

CALLING  MODULE  NUMBER  2 
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TRAJECTORY  INPDT 


TIMTOl 

m 

5.0 

MENDUR 

m 

0. 

NCRUSE 

m 

2 

IPLOT 

a 

0 

TIMT02 

m 

0.5 

C3MAX 

m 

1500. 

IPSIZE 

a- 

-2 

HMINP 

a 

0 

FRFURE 

m 

0.05 

XDESC 

m 

80.0 

IPSTOl 

m 

5 

KMAXP 

a 

40000 

DESLF 

10.00 

NKFUEL 

m 

1.000 

IPST02 

a 

1 

DELHP 

a 

4000 

ULTLF 

15.00 

CRMACH 

m 

0.800 

IBREG 

a 

0 

StMINP 

a 

0.300 

RANGE 

600. 

NKLAND 

m 

0.570 

lENDUR 

a 

0 

SMMAXP 

a 

0.900 

NFUEL 

2500. 

FLFAC 

m 

0.600 

IPRINT 

a 

0 

DEUIP 

a 

0.100 

NFEXT 

0. 

DECEL 

m 

0.250 

KERROR 

a 

2 

HCOMBP 

a 

0 

NFTRAP 

20. 

NLEGCL 

m 

0 

NLEGCR 

a 

0 

NLEGLO 

a 

0 

wwxacc 

1.200 

TOL 

m 

0.001 

MILCOM 

a 

0 

NMISS 

a 

1 

HCODE  -  0 


(MPROP  -  1 


MISSION  1 


PHASE 

MACH  NO. 
START  END 

ALTITUDE 
START  END 

HORIZONTAL 
DIST  TIME 

NO. 

TURN 

VIND 

"C'S 

WKFUEL 

M 

IP 

IX 

H 

B 

A 

p 

CLIMB 

0.00 

0.00 

0 

30000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CRUISE 

0.80 

0.80 

30000 

-1 

240.0 

30.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

ACCEL 

0.80 

1.60 

30000 

-1 

0.0 

2.0 

0.0 

0.0 

1.0000 

1 

1 

0 

0 

0 

0 

0 

COMBAT 

1.60 

1.60 

30000 

-1 

0.0 

4.0 

0.0 

6.0 

1.0000 

1 

1 

0 

0 

0 

0 

0 

CRUISE 

0.80 

0.80 

30000 

-1 

160.0 

20.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

DESCENT 

0.00 

0.00 

30000 

0 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

5 

0 

0 

0 

0 

0 

CALLING  MODULE  NUMBER  3 
CALLING  MODULE  NUMBER  4 
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PROPULSION  INPUT 
VERSION  04-76 


***  PROPULSION  DATA  *** 


AENDIA  - 

0.000 

ABNLE 

> 

0.000 

AENWT  - 

0.000 

ALTI 

0.000 

AM 

m 

0.000 

ATURB  " 

0.385 

AENTN  - 

0.000 

AUAEN6  - 

0.000 

AMAENG 

m 

0.157 

BA  * 

0.000 

DELPR  - 

0.000 

DBLT57 

m 

100.000 

DEPMCC  « 

2.000 

DIAl 

1.365 

BABl 

m 

0.900 

EBl 

0.930 

EDI 

0.750 

ETACl 

m 

0.900 

BTAFl  * 

0.900 

ETATl  - 

0.920 

HTR 

m 

0.600 

HVF  - 

18600.000 

MACHl  - 

1.000 

MACH2 

■ 

1.100 

PCDFAC  • 

1.000 

POSA 

29.920 

PRFO 

« 

1.000 

PMCC  « 

100.000 

PllPl  - 

2.000 

P2P1 

m 

21.000 

RlOA 

-1.000 

R32 

0.950 

R54 

m 

0.950 

R54N 

0.950 

R7I1 

0.980 

R711N 

m 

0.820 

SCPR  > 

1.270 

SPAOP  - 

1.000 

SPADSP 

m 

1.000 

SFAUXP  - 

1.000 

SPBEP  - 

1.000 

SFBPP 

m 

1.000 

SFBTP  « 

0.000 

SPDIVP  - 

1.000 

SFINSP 

m 

1.000 

SFIP  - 

0.000 

SPSFCl  - 

1.000 

SFSFC2 

■ 

1.000 

SFSFC3  - 

1.000 

SMI 

0.700 

SODG 

m 

1.000 

TOSA  - 

518.000 

TR  ■ 

520.000 

TNAB 

m 

9500. 

TNOAB  - 

2720. 

TMTO  ■ 

0.500 

T3 

m 

2600. 

T5M 

3400. 

T5I 

3000. 

T7M 

m 

3400. 

T71  - 

0. 

VCI 

0.980 

NCMAl 

m 

0.000 

XMDES  - 

0.850 

XMT 

0.850 

TREN 

m 

95. 

FRBT  ■ 

0.000 

FRPN  - 

0.000 

ROIAM 

m 

1.150 

RLENG  * 

1.500 

IPR 

1 

IPRINT 

m 

0 

IPLOT 

m 

0 

KERROR  - 

0 

RODE 

m 

0 

KT5 

m 

2 

KT7 

0 

MINPR 

m 

1 

NAB 

m 

3 

NOZZ 

1 

NPROP 

m 

6 

NSUI94 

m 

15 

lENG 

m 

1 

THESE  VARIABLES  ARE  USED  BY  TABLE  LOOK  UP 
ESF  -  1.000  NDTAIL  -  0  IPDBUG 

-  0  IIPRINT  -  0 

ALTD  - 

0. 

10000. 

30000. 

30000. 

30000. 

30000. 

XMACH  - 

0.000 

0.600 

0.800 

1.000 

1.200 

1.600 

XMPRl  - 

0.000 

0.300 

0.600 

0.900 

1.200 

4.000 

XPRl  - 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

XMPRIl  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRIl  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XMPRI2  - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRI2  - 

CALLING 

0.000 
0.000 
MODULE  i 

0.000 
0.000 
NUMBER  € 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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INITIAL  WEIGHTS  INPUT  DATA 
ACSYNT  MODULE  NUMBER  6 

AIRCRAFT  TYPE:  FIGHTER 
TITLE:  ***  WEIGHTS  DATA  *** 


CONTROL  OPTIONS 


IPRINT 

■1 

1  IGRAPH 

-  1 

ITAIL 

-  0  KERROR  - 

0 

IDELT 

m 

0  lOBLIQ 

-  1 

KWING 

-  1  KBODY  - 

1 

KI 

m 

1.00  K2 

-1.00 

R3 

-  1.0  K4 

1.0 

K5 

m 

1.00  K6 

-1.00 

AFMACH  -  0.85  MAXIT  - 

1 

KB 

m 

0.00  KPl 

-1.00 

KP2 

-  0.00 

FR 

m 

1.50  TECHG 

-1.00 

WGTO 

-  5000 

* 

STRESS 

m 

30000. 

DENS 

-  0.056 

FLIFTF  -0 

.000 

TECHI 

m 

1.00  1.00 

1.00 

1.00 

1.00  1.00 

1.00 

1.00 

1.00 

SLOPE (1) 

m 

0.80  0.80 

0.80 

0.80 

0.80  0.50 

1.00 

1.00 

SLOPE (9) 

m 

1.00  1.00 

1.00 

1.00 

0.00  0.00 

0.00 

1.20 

0.00 

INITIAL  ESTIMATES 
IF  CODE  -  1,  WEIGHT  IS  FIXED 


QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 

1500. 

0 

WAIRC 

« 

50. 

0 

WAPU 

a 

0. 

0 

WAMIUN 

a 

0. 

0 

WARM 

■ 

0. 

0 

WBAG 

a 

0. 

0 

WBBl 

■ 

0. 

0 

WBODY 

a 

800. 

0 

WCAND 

■i 

0. 

0 

WCARGO 

a 

0. 

0 

WCREW 

■ 

100. 

0 

WE 

a 

550. 

0 

WELT 

■ 

200. 

0 

WEP 

a 

125. 

0 

WETANK 

0. 

0 

WFEQ 

a 

690. 

0 

WFS 

a 

140. 

0 

WCA 

a 

140. 

0 

WGEAR 

ai 

15. 

0 

WHOP 

a 

60. 

0 

WHT 

m 

55. 

0 

WINST 

a 

55. 

0 

WLG 

m 

200. 

0 

WMISS 

a 

0. 

0 

WNA 

m 

50. 

0 

WPA 

a 

0. 

0 

WPASS 

m 

0. 

0 

WPL 

a 

400. 

1 

WPS 

m 

690. 

0 

WSC 

a 

150. 

0 

WTSUM 

m 

5000. 

0 

WVT 

a 

50. 

0 

WWING 

m 

400. 

0 

WBOMB 

a 

0. 

0 

WENVP 

m 

0. 

0 

WPIV 

a 

0. 

0 

WLIFTF 

m 

0. 

0 

WBB2 

a 

0. 

0 

*  *  *  BEGIN  VEHICLE  CONVERGENCE 


ESTIMATED  GROSS  WEIGHT  -  0 . 50000E-«-04 
CALLING  MODULE  NUMBER  1 
CALLING  MODULE  NUMBER  2 


HN  -  0.0000000E4-00 
RHO  -  0.2376891E-02 
DXCRUS  -  O.OOOOOOOE-fOO 


A  -  0.1116450E+04  SMN  -  0 . 2613667E+00 
Q  -  0.1011949E-I-03 
W  -  0.3301159E+04 


CALLING  MODULE  NUMBER  6 
CALCULATED  GROSS  WEIGHT  -  0 . 49873E-:-04 


SLOPE  OF  WCALC  VS  WEST  LINE  -  0.75000E+00 
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ESTIMATED  GROSS  WEIGHT  -  0 . 4  94  94E4-04 
CALLING  MODOLE  NOMBER  1 
CALLING  MODOLE  NOMBER  2 

HN  -  0.0000000E4-00  A  -  0 . 1116450B<t-04  SMN  -  0 . 2594699E-«-00 

0.2376891E-02  Q  -  0 . 9973I46E-t-02 

DXCROS  -  O.OOOOOOOE+OO  W  -  0 .325e455E-«-04 

CALLING  MODOLE  NOMBER  € 

CALCOLATED  (SIOSS  WEIGHT  -  0.49751E-«-04 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0 .30000E-I-00 

ESTIMATED  GROSS  WEIGHT  -  0 .49a33E+04 
CALLING  MODOLE  NOMBER  1 
CALLING  MODOLE  NOMBER  2 

HN  >  O.OOOOOOOE-fOO  A  -  0 .11164 50E-t-04  SMN  -  0.2605657E-t-00 

0.2376891E-02  Q  -  0 . 1005756E-t-03 

DXCROS  -  O.OOOOOOOE-fOO  W  -  0 .3286344E-f04 

CALLING  MODOLE  NOMBER  6 

CALCOLATED  GROSS  WEIGHT  -  0.49896E-f04 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0.30000E-fOO 

ESTIMATED  GROSS  WEIGHT  -  0.49e95E-f04 
CALLING  MODOLE  NOMBER  1 
CALLING  MODOLE  NOMBER  2 

HN  -  O.OOOOOOOE-fOO  A  «  0.1116450B-f04  SMN  -  0 . 2607631E-f00 

0.2376891E-02  Q  -  0. 100728 lE-f03 

DXCROS  -  O.OOOOOOOE-fOO  W  -  0 .3291383E-f04 

CALLING  MODOLE  NOMBER  6 

CALCOLATED  GROSS  WEIGHT  -  0.49923E-f04 

SLOPE  OF  WCALC  VS  WEST  LINE  -  0.43083E-f00 

ESTIMATED  GROSS  WEIGHT  -  0.49944E-f04 
CALLING  MODOLE  NOMBER  1 
CALLING  MCX)OLE  NOMBER  2 

HN  -  O.OOOOOOOE-fOO  A  -  0 . 1116450E-f04  SMN  -  C.2609215E-f00 

0.2376891E-02  Q  -  0 . 1008505E-f03 

DXCROS  -  O.OOOOOOOE-fOO  W  -  0 .3295425E-f04 

CALLING  MODOLE  NOMBER  6 

CALCOLATED  GROSS  WEIGHT  -  0.49943E-f04 


*  *  *  END  VEHICLE  CONVERGENCE 


4  CONVERGENCE  ITERATIONS  REQOIRED 
CALLING  MODOLE  NOMBER  1 
CALLING  MODOLE  NOMBER  2 
SOMIARY  OF  NON  FATAL  ERRORS  ENCOOITrEREO  IN  PROP 
PS  IS  LESS  THAN  P6S  1  TIMES 
SOMIARY  OF  NON  FATAL  ERRORS  ENCOONTERED  IN  PROP 


RHO 


RHO 


RHO 


RHO 
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P5  IS  LESS  THAN  P6S 
SOMMARY  OF  NON  FATAL 
P5  IS  LESS  THAN  P6S 
SOMMARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOraiARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOMMARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOIMARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOMMARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOMflVRY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 
SOMfARY  OF  NON  FATAL 
PS  IS  LESS  THAN  P6S 


1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOUNTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 

ERRORS  ENCOONTERED 
1  TIMES 


IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

HN  »  O.OOOOOOOE+00  A  ■  0 . 111S450E+04  SMN  -  0.2609196E+00 

0.2376891E-02  Q  -  0 . 1008490E+03 

DXCROS  -  O.OOOOOOOE+00  «  -  0 .3295376E+04 


CALLING  MODOLE  NOMBER  6 
CALLING  MODOLE  NOMBER  1 


RHO  - 
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NASA/AMBS  A  C  S  Y  H  T 
FOSELAGE  DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

0.38 

0.23 

0.17 

0.76 

0.38 

0.46 

1.14 

0.51 

0.82 

1.52 

0.62 

1.22 

1.90 

0.72 

1.64 

2.28 

0.81 

2.08 

2.66 

0.90 

2.53 

3.04 

0.97 

2.97 

3.42 

1.04 

3.41 

3.60 

1.11 

3.84 

4.18 

1.16 

4.26 

4.56 

1.22 

4.65 

4.94 

1.26 

5.02 

5.32 

1.31 

5.37 

5.70 

1.35 

5.69 

6.08 

1.38 

5.98 

6.46 

1.41 

6.24 

6.84 

1.43 

6.47 

7.22 

1.46 

6.66 

7.60 

1.47 

6.81 

7.98 

1.49 

6.93 

8.36 

1.49 

7.02 

8.74 

1.50 

7.06 

9.12 

1.50 

7.07 

9.50 

1.50 

7.07 

9.88 

1.50 

7.07 

10.26 

1.50 

7.07 

10.64 

1.50 

7.07 

11.02 

1.50 

7.07 

11.40 

1.50 

7.07 

11.78 

1.50 

7.07 

12.16 

1.50 

7.07 

12.54 

1.50 

7.07 

12.92 

1.50 

7.07 

13.30 

1.50 

7.07 

13.68 

1.53 

7.37 

14.06 

1.55 

7.57 

14.44 

1.56 

7.68 

14.82 

1.56 

7.69 

15.20 

1.55 

7.59 

15.58 

1.53 

7.39 

15.96 

1.50 

7.08 

16.34 

1.46 

6.67 

16.72 

1.40 

6.15 

17.10 

1.33 

5.54 

17.48 

1.24 

4.82 

17.86 

1.13 

4.02 

18.24 

1.00 

3.14 

18.62 

0.83 

2.16 

19.00 

0.54 

0.93 

* 


**FINAL  ODTPOT** 
NACEU.E  definition 


X-XNOSE 

R 

AREA 

0.00 

1.04 

3.41 

1.98 

1.04 

3.41 

5.93 

1.04 

3.41 

7.91 

1.04 

3.41 

*•  **P0DS** 


MAX.  DIAMETER. 


3.000 


2.062 


NACELLE  LOCATION 
X  Y 

9.50  0.46 


FINENESS  RATIO .  6.333 

SORFACE  AREA .  166.616  .  51.755  (EACH) 


VOLDHE 


101.658 


Z 

0.00 
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NASA/AMES  A  C  S  Y  N  T  **FINAL  OOTPDT** 
DIMENSIONS  OF  PLANAR  SORFACES 


WING  H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN  AREA . 

160.0 

0.0 

20.0 

25.0 

(SQ.FT.) 

SURFACE  AREA . 

304.  S 

0.0 

36.1 

20.5 

(SQ.FT.) 

VOLUME . 

39.7 

0.0 

2.5 

3.6 

(CU.FT.) 

SPAN . 

29.665 

0.000 

7.746 

7.746 

(FT.) 

L.E.  SNEEP . 

5.592 

0.000 

30.000 

30.000 

(DEG.) 

C/4  SWEEP . 

0.000 

0.000 

27.555 

21.741 

(DEG.) 

T.E.  SWEEP . 

..  -16.368 

0.000 

19.551 

-7.797 

(DEG.) 

ASPECT  RATIO  . . . . 

5.500 

0.000 

3.000 

2.400 

ROOT  CHORD . 

8.298 

0.000 

3.443 

4.611 

(FT.) 

ROOT  THICKNESS... 

5.974 

0.000 

2.892 

3.320 

(IN.) 

ROOT  T/C  . 

0.060 

0.000 

0.070 

0.060 

TIP  CHORD . 

2.489 

0.000 

1.721 

1.844 

(FT.) 

TIP  THICKNESS.... 

1.792 

0.000 

1.239 

1.328 

(IN.) 

TIP  T/C  . 

0.060 

0.000 

0.060 

0.060 

TAPER  RATIO  . 

0.300 

0.000 

0.500 

0.400 

MEAN  AERO  CHORD.. 

5.915 

0.000 

2.678 

3.425 

(FT.) 

LE  ROOT  AT . 

8.376 

0.000 

15.557 

0.950 

(FT.) 

C/4  ROOT  AT . 

10.450 

0.000 

16.418 

2.103 

(FT.) 

TE  ROOT  AT . 

16.673 

0.000 

19.000 

5.561 

(FT.) 

LE  M.A.C.  AT . 

8.971 

0.000 

17.545 

1.908 

(FT.) 

C/4  M.A.C.  AT _ 

10.450 

0.000 

18.214 

2. -^65 

(FT.) 

TE  M.A.C.  AT . 

14.886 

0.000 

20.223 

5.333 

(FT.) 

Y  M.A.C.  AT . 

6.085 

0.000 

3.443 

1.660 

LE  TIP  AT . 

9.828 

0.000 

20.029 

3.186 

(FT.) 

C/4  TIP  AT . 

10.450 

0.000 

20.460 

3.647 

(FT.) 

TE  TIP  AT . 

12.317 

0.000 

21.751 

5.030 

(FT.) 

ELEVATION . 

1.500 

0.000 

1.500 

0.000 

(FT.) 

VOLUME  COEFF,  ... 

0.000 

0.033 

-0.203 

E  X  T  E 

N  S 

IONS 

Stzaka  Raar  Extansion 

C*ntrold  location 

1  at 

0.000 

0.000 

Axaa . 

•  •  a 

0.000 

0.000 

Wat tad  Araa . 

a  a  a 

0.000 

0.000 

Voluma . 

a  a  a 

0.000 

0.000 

Swaap  Angla . 

. . . 

0.000 

FUEL 

T 

A  N  K  S 

TANK  VOLUME 

WEIGHT 

DENSITY 

WING 

0. 

0. 

48 

.62 

FUSfl  37. 

1804. 

48 

.62 

FUS«2 

0. 

0. 

50 

.00 

TOTAL 

1804. 

MISSION  FUEL  REQUIRED-  1804. 

AVAILABLE  FUEL  VOLUME  IN  WING- 

32. 

AIRCRAFT  WEIGHT 

m 

4994.351 

Lbs . 

AIRCRAFT  VOLUME 

m 

147.479 

Cu.Ft. 

AIRCRAFT  DENSITY 

■ 

33.865 

Lbs. /Cu.Ft. 

CASE-  4 

CALLING  MODULE  NUMBER  2 
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TRAJECTORY  OOTPOT 


MISSIOM  1 


PHASE 

M 

H 

CL 

SFC(I) 

THRDST(I) 

CD 

SPC (0) 

THRUST (D) 

CD INST 

CLIMB 

0.94 

30000. 

0.0627 

1.00 

3283. 

0.0067 

CYCLE 

0.99 

0. 

0.0007 

CROISE 

o.eo 

30000. 

0.1030 

1.02 

348. 

0.0077 

CYCLE 

1.02 

348. 

0.0000 

ACCEL 

1.60 

30000. 

0.0248 

1.74 

8601. 

0.0345 

CYCLE 

1.71 

8733. 

0.0007 

COMBAT 

1.60 

30000. 

0.1450 

1.66 

8061. 

0.0445 

CYCLE 

1.63 

8733. 

0.0007 

CROISE 

0.80 

30000. 

0.0773 

1.06 

321. 

0.0071 

CYCLE 

1.06 

321. 

0.0000 

DESCENT 

0.26 

0. 

0.2480 

1.29 

435. 

0.0143 

CYCLE 

1.29 

435. 

0.0000 

(PAYLOAD 

-  400. 

LB) 

ALPHA 

NFOEL 

TIME 

VEL 

GAMMA 

N 

HA 

Q 

L/D 

THR/THA 

PR 

X 

0.89 

49.4 

0.62 

936 

36.81 

4772.4 

43.78 

390, 

9.29 

1.00 

1.00 

3, 

1.25 

181.9 

30.54 

796 

0.00 

4590.5 

28.41 

282 

13.35 

0.11 

1.00 

240 

0.77 

130.8 

0.73 

1592 

0.00 

4459.6 

81.96 

1128 

0.72 

1.86 

0.95 

9 

4.19 

891.9 

4.00 

1592 

0.00 

3567.8 

81.96 

1128 

3.26 

1.74 

0.95 

63 

0.93 

115.6 

20.36 

796 

0.00 

3452.2 

28.31 

282 

10.91 

0.10 

1.00 

160 

3.08 

156.8 

23.98 

291 

3.30 

3295.4 

50.04 

101 

17.37 

0.06 

1.00 

85 

FOEL  SO^MARIES 


MISSION  FOEL  -  1699. 
RESERVE  FOEL  -  65. 
TRAPPED  FOEL  -  20. 


TOTAL  FOEL  -  1604. 


TAKEOFF  FOEL 
NFTOl  -  56. 

HFT02  -  116. 


FOEL  CARRIED  : 
EXTERNALLY  >  0 . 

INTERNALLY  -  1604. 


ADDITIONAL  COMBAT  PARAMETERS 


CONDITIONS 

PS 

NZ 

TDOT 

RADIUS 

ALPHA 

CL 

CD 

M->  1.60 

1  G  FLIGHT 

648.2 

1.00 

0.00 

0. 

0.76 

0.025 

0.0345 

H-30000 . 

SOSTAINED 

0.0 

6.85 

7.85 

11619. 

4.73 

0.165 

0.0475 

MAX.  INST. 

-835.1 

10.00 

11.52 

7915. 

6.20 

0.221 

0.0573 

COMBAT  ENERGY  -  0 .203564E-I-06 


BLOCK  TIME 

m 

1.337 

HOURS 

BLOCK  RANGE 

m 

559.5 

N.  M. 

TAKEOFF 

FIELD  LENGTH (TOTAL  RUN) 

m 

2417. 

FEET 

LANDING 

FIELD  LENGTH (TOTAL  RUN) 

m 

12617. 

FEET 

LANDING 

FIELD  LENGTH (GROUND  RUN) 

m 

2742. 

FEET 

HEIGHT  FOR  LANDING  CALCULATION 

m 

3978. 

POUNDS 

LANDING 

THRUST  TO  HEIGHT  RATIO 

m 

2.388 

TAKEOFF  HEIGHT 

m 

4994. 

POUNDS 

LANDING  HEIGHT 

m 

3295. 

POUNDS 

CALLING  MODOLE  NOMBER  3 
D^tall^d  Aerodynamic*  Output 

Mach  -  0.60 

Altitude  -  10000. 


Parasite  Drag 


Induced  Drag 


Friction 

.0055 

Alpha 

Body 

.0016 

0.0 

Hing 

.0032 

3.0 

St rakes 

.0000 

6.0 

H.  Tall 

.0000 

0.0 

V.  Tail 

.0005 

9.0 

Canard 

.0003 

12.0 

Pods 

.0000 

15.0 

Engine 

,0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 

Interference 

.0015 

Have 

.0000 

External 

,0000 

Tanks 

.0000 

Bondsa 

.0000 

Cl 

Cd 

L/D 

Cm 

0.000 

0.0070 

0.0 

0.000 

0.268 

0.0157 

17.1 

0.029 

0.512 

0.0440 

11.7 

0.053 

0.000 

0.0070 

0.0 

0.000 

0.732 

0,0910 

8.1 

0.072 

0.927 

0.1544 

6.0 

0.087 

1.096 

0.2316 

4.7 

0.099 

1.240 

0.3196 

3.9 

0.108 

1.363 

0.4193 

3.3 

0.115 

1.474 

0.5421 

2.7 

0.121 

Slope  Factors 
ClAlpha 
Cdl^.SAlpha 


e  Cdtriffi  Deltrim  Zone 

0.00 

0.0000 

0.0 

3 

0.48 

0.0000 

0.0 

3 

0.41 

0.0000 

0.0 

3 

0.00 

0.0000 

0.0 

3 

0.37 

0.0000 

0.0 

3 

0.34 

0.0000 

0.0 

3 

0.31 

0.0000 

0.0 

3 

0.28 

0.0000 

0.0 

3 

0.26 

0.0000 

0.0 

3 

0.24 

0.0000 

0.0 

3 

0.0614 

0.0305 
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Storas 

Extra 

Cambar 


0000 

0000 

0000 


FOR  AM  0BI.IQDE  MING 

SNEEP  *  0.00 
YAWED  ASPECT  RATIO  -  5.50 
DRAG  RISE  MACH  NO.  -  0.000 


FOR  VARIABLE  SWEEP 

SWEEP  -  0.00 

SWEPT  ASPECT  RATIO  -  5.50 

DRAG  RISE  MACH  NO.  0.000 

Mach  -  0.70 

Altltuda  -  30000 . 


Paxaalta  Drag  Inducad  Drag 


Friction 

.0054 

Alpha 

Cl 

Cd 

L/D 

Cm 

a  Cdtrim  Daltrim  Zona 

Body 

.0016 

0.0 

0.000 

0.0069 

0.0 

0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0031 

3.0 

0.280 

0.0165 

16.9 

0.024 

0.47 

0.0000 

0.0 

3 

Strakas 

.0000 

6.0 

0.535 

0.0475 

11.3 

0.043 

0.41 

0.0000 

0.0 

3 

H.  Tail 

.0000 

0.0 

0.000 

0.0069 

0.0 

0.000 

0.00 

0.0000 

0.0 

3 

V.  Tail 

.0005 

9.0 

0.764 

0.0985 

7.8 

0.058 

0.37 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.967 

0.1670 

5.8 

0.069 

0.34 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

1.143 

0.2498 

4.6 

0.077 

0.31 

0.0000 

0.0 

3 

Engina 

.0000 

18.0 

1.294 

0.3440 

3.8 

0.083 

0.29 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.421 

0.4497 

3.2 

0.087 

0.26 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.537 

0.5795 

2.7 

0.090 

0.24 

0.0000 

0.0 

3 

Intar faranoa  .0015 
Wava  . 0000 

Extarnal  .0000  Slopa  Factors 

Tanks  .0000  ClAlpba  0.0640 

Bonks  .0000  Cdl^.5Alpha  0.0315 

Storas  . 0000 

Extra  . 0000 

Cambar  . 0000 


FOR  AM  OBLIQOE  WING 

SWEEP  -  0.05 
YAWED  ASPECT  RATIO  -  5.50 
DRAG  RISE  MACH  MO.  -  0.000 


FOR  VARIABLE  SWEEP 

SWEEP  -  0.05 
SWEPT  ASPECT  RATIO  -  5.50 
DRAG  RISE  MACH  MO.  -  0.000 
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D«tail«d  Aerodynamics  Output 


Mach  ■> 

0.80 

Altitude  «  30000. 

Parasite  Drag 

Induced  Drag 

Friction 

.0049 

Alpha 

Cl 

Cd 

L/D  Cm 

•  Cdtrim  DeXtrim  Zone 

Body 

.0015 

0.0 

0.000 

0.0063 

0.0  0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0026 

3.0 

0.241 

0.0149 

16.1  -.002 

0.50 

0.0000 

0.0 

3 

Strakes 

.0000 

6.0 

0.459 

0.0420 

10.9  -.005 

0.44 

0.0000 

0.0 

3 

H.  Tail 

.0000 

0.0 

0.000 

0.0063 

0.0  0.000 

0.00 

0.0000 

0.0 

3 

V.  Tail 

.0005 

9.0 

0.655 

0.0862 

7.6  -.009 

0.40 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.829 

0.1453 

5.7  -.014 

0.37 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

0.981 

0.2167 

4.5  -.019 

0.34 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.112 

0.2980 

3.7  -.024 

0.31 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.226 

0.3899 

3.1  -.030 

0.29 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.335 

0.5062 

2.6  -.037 

0.26 

0.0000 

0.0 

3 

Interference 

.0015 

Have 

.0000 

External 

.0000 

Slope  Factors 

Tanks 

.0000 

ClAlpha 

0.0556 

Bombs 

.0000 

Cdl''.5Alpha 

0.0295 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 

Cdmin 

Too?! 

FOR  AM  OBLIQOE  WING 

SHEEP 

>  29.01 

YAWED  ASPECT  RATIO 

■  4.31 

DRAG  RISE  MACH  NO. 

.  0.000 

FOR  VARZABIE  SHEEP 

SHEEP 

-  29.01 

SWEPT  ASPECT  RATIO 

«  4.31 

DRAG  RISE  MACH  NO. 

-  0.000 

Mach  • 

0.90 

Altitude  -  30000. 

Parasite  Drag 

Induced  Drag 

Friction 

.0046 

Alpha 

Cl 

Cd 

L/D  Cm 

e  Cdtrim  DeXtrim  Zone 

Body 

.0015 

0.0 

0.000 

0.0061 

0.0  0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0024 

3.0 

0.213 

0.0140 

15.2  -.007 

0.52 

0.0000 

0.0 

3 

Strakes 

.0000 

6.0 

0.405 

0.0385 

10.5  -.015 

0.46 

0.0000 

0.0 

3 

H.  Tail 

.0000 

0.0 

0.000 

0.0061 

0.0  0.000 

0.00 

0.0000 

0.0 

3 

V.  Tail 

.0005 

9.0 

0.577 

0.0783 

7.4  -.023 

0.42 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.729 

0.1310 

5.6  -.031 

0.39 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

0.864 

0.1944 

4.4  -.040 

0.36 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

0.981 

0.2668 

3.7  -.048 

0.34 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.085 

0.3492 

3.1  -.057 

0.31 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.241 

0.5258 

2.4  -.074 

0.27 

0.0000 

0.0 

3 

Interference 

.0015 

Wave 

.0000 

External 

.0000 

Slope  Factors 

Tanks 

.0000 

ClAlpha 

0.0517 

Bombs 

.0000 

Cdl^ . SAlpha 

0.0300 
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Stores  .0000 

Extra  . 0000 

Camber  . 0000 


Cdmirt  .  0061 


FOR  AN  OBLIQOE  WING 

SHEEP  -  38.99 
YAMED  ASPECT  RATIO  -  3.49 
DRAG  RISE  NACH  NO.  «  0.000 


FOR  VARIABLE  SHEEP 

SHEEP  -  38.99 

SHEPT  ASPECT  RATIO  -  3.49 

DRAG  RISE  MACH  NO.  -  0.000 
Detailed  Aerodynamics  Output 

Mach  -  1.00 

Altitude  -  30000 . 


Parasite  Drag 


Friction 

.0044 

Alpha 

Body 

.0015 

0.0 

Hlng 

.0022 

3.0 

Strakes 

.0000 

6.0 

H.  Tail 

.0000 

0.0 

V.  Tail 

.0005 

9.0 

Canard 

.0002 

12.0 

Pods 

.0000 

15.0 

Engine 

.0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 

Interference 

.0003 

Have 

.0298 

External 

.0000 

Tanka 

.0000 

Boodsa 

.0000 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 

Cdmin 

Drag 


Cl 

Cd 

L/D 

Cm 

0.000 

0.0346 

0.0 

0.000 

0.192 

0.0420 

4.6 

-.010 

0.365 

0.0648 

5.6 

-.020 

0.000 

0.0346 

0.0 

0.000 

0.519 

0.1014 

5.1 

-.031 

0.656 

0.1497 

4.4 

-.041 

0.024 

0.2375 

3.5 

-.064 

0.930 

0.3133 

3.0 

-.080 

1.024 

0.3992 

2.6 

-.096 

1.109 

0.5017 

2.2 

-.111 

Slope  Factors 
ClAlpha 
Cdl^.SAlpba 


e  Cdtrim  Deltrim  Zone 


0.00 

0.0000 

0.0 

3 

0.54 

0.0000 

0.0 

3 

0.48 

0.0000 

0.0 

3 

0.00 

0.0000 

0.0 

3 

0.44 

0.0000 

c.o 

3 

0.41 

0.0000 

0.0 

3 

0.37 

0.0000 

0.0 

3 

0.34 

0.0000 

0.0 

3 

0.31 

0.0000 

0.0 

3 

0.29 

0.0000 

0.0 

3 

0.0462 

0.0285 


FOR  AN  OBLIQUE  HING 

SHEEP  -  45.62 
YAHED  ASPECT  RATIO  -  2.91 
DRAG  RISE  MACH  NO.  -  0.000 


FOR  VARIABLE  SHEEP 

SHEEP  -  45.62 
SHEPT  ASPECT  RATIO  -  2.91 
DRAG  RISE  MACH  NO.  >  0.000 
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M«ch 

Altitude 


1.20 

30000. 


Parasite  Drag 


Friction 

.0041 

Body 

.0014 

Hing 

.0020 

Strakes 

.0000 

H.  Tail 

.0000 

V.  Tail 

.0004 

Canard 

.0002 

Pods 

.0000 

Engine 

.0000 

Cowl 

.0000 

Boattall 

.0000 

Interference 

.0002 

Have 

.0317 

External 

.0000 

Tanks 

.0000 

Bombs 

.0000 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 

Induced  Drag 


Alpha 

Cl 

Cd 

0.0 

0.000 

0.0360 

3.0 

0.170 

0.0444 

6.0 

0.364 

0.0742 

0.0 

0.000 

0.0360 

9.0 

0.394 

0.0911 

12.0 

0.493 

0.1274 

15.0 

0.611 

0.1778 

18.0 

0.741 

0.2468 

21.0 

0.878 

0.3362 

24.0 

1.008 

0.4414 

I>/D  Cm  e 

0.0  0.000  0.00 

3.8  0.000  0.51 

4.9  0.000  0.51 

0.0  0.000  0.00 

4.3  0.000  0.42 

3.9  0.000  0.39 

3.4  0.000  0.39 

3.0  0.000  0.39 

2.6  0.000  0.38 

2.3  0.000  0.37 


Cdtrim  Deltrim  Zone 


0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

Slope  Factors 

ClAlpha  0.0420 

Cdl^.5Alpha  0.0265 


Cdmin . 0360 


FOR  AM  OBLIQOE  HIMG 

SHEEP  «  54.36 
YAHED  ASPECT  RATIO  -  2.15 
DRAG  RISE  MACH  MO.  -  0.000 


FOR  VARIABLE  SHEEP 

SHEEP  -  54.36 

SHEPT  ASPECT  RATIO  -  2.15 

DRAG  RISE  MACH  NO.  >  0.000 
Detailed  Aerodynamics  Output 


Mach  >  1.40 

Altitude  -  30000 . 


Parasite  Drag 


Friction 

.0038 

Body 

.0013 

Hing 

.0018 

Strakes 

.0000 

H.  Tall 

.0000 

V.  Tail 

.0004 

Canard 

.0002 

Pods 

.0000 

Engine 

.0000 

Cowl 

.0000 

Boattail 

.0000 

Interference 

.0002 

Nave 

.0311 

External 

.0000 

Tanks 

.0000 

Bombs 

.0000 

Induced  Drag 


Alpha 

Cl 

Cd 

0.0 

0.000 

0.0351 

3.0 

0.100 

0.0403 

6.0 

0.210 

0.0563 

0.0 

0.000 

0.0351 

9.0 

0.318 

0.0821 

12.0 

0.437 

0.1199 

15.0 

0.560 

0.1695 

18.0 

0.687 

0.2325 

21.0 

0.831 

0.3183 

24.0 

0.971 

0.4201 

L/D  Cm  e 

0.0  0.000  0.00 

2.5  0.000  0.36 

3.7  0.000  0.39 

0.0  0.000  0.00 

3.9  0.000  0.40 

3.6  0.000  0.42 

3.3  0.000  0.44 

3.0  0.000  0.45 

2.6  0.000  0.46 

2.3  0.000  0.46 


Cdtrim  Deltrim  Zone 


0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

Slope  Factors 

ClAlpha  0.0405 

Cdl^.5Alpha  0.0259 
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Storva 

Extra 

Canbar 


.0000 

.0000 

.0000 


FOR  AH  OBLIQUE  KING 

SHEEP  -  60.00 
YANED  ASPECT  RATIO  -  1.70 
DRAG  RISE  MACH  MO.  -  0.000 


FOR  VARIABLE  SHEEP 

SHEEP  -  60.00 
SHEPT  ASPECT  RATIO  -  1.70 
DRAG  RISE  MACH  MO.  -  0.000 


Maob  ■■  1.60 

Altituda  -  30000. 


Paraalta  Drag 
Friction 

.0036 

Inducad  Drag 
Alpha  Cl 

Cd 

L/D 

Cm 

a  Cdtrim  Daltrim  Zona 

Body 

.0013 

0.0 

0.000 

0.0341 

0.0 

0.000 

0.00 

0.0000 

0.0 

5 

Ming 

.0017 

3.0 

0.102 

0.0394 

2.6 

0.000 

0.37 

0.0000 

0.0 

5 

Strakaa 

.0000 

6.0 

0.214 

0.0556 

3.8 

0.000 

0.40 

0.0000 

0.0 

5 

R.  Tail 

.0000 

0.0 

0.000 

0.0341 

0.0 

0.000 

0.00 

0.0000 

0.0 

5 

V.  Tail 

.0004 

9.0 

0.333 

0.0640 

4.0 

0.000 

0.42 

0.0000 

0.0 

5 

Canard 

.0002 

12.0 

0.456 

0.1242 

3.7 

0.000 

0.43 

0.0000 

0.0 

5 

Pods 

.0000 

15.0 

0.563 

0.1710 

3.3 

0.000 

0.43 

0.0000 

0.0 

6 

Engina 

.0000 

le.o 

0.669 

0.2347 

2.9 

0.000 

0.44 

0.0000 

0.0 

6 

Cowl 

.0000 

21.0 

0.830 

0.3202 

2.6 

0.000 

0.45 

0 . 0000 

0.0 

6 

Boattail 

.0000 

24.0 

0.973 

0.4249 

2.3 

0.000 

0.45 

0.0000 

0.0 

6 

Zntarfaranca  . 0002 
Hava  .0304 

Extarnal  .0000  Slopa  Faotora 

Tanka  .0000  ClAlpha  0.0405 

BoiMsa  .0000  Cdl^.SAlpha  0.0260 

Storaa  .0000 

Extra  . 0000 

Cambar  .0000 


FOR  AH  OBLIQUE  HIMG 

SHEEP  -  60.00 
YAHED  ASPECT  RATIO  -  1.70 
DRAG  RISE  MACH  HO.  -  0.000 


FOR  VARIABLE  SHEEP 

SHEEP  -  60.00 

SHEPT  ASPECT  RATIO  -  1.70 

DRAG  RISE  MACH  HO.  -  0.000 
CALLIH6  MODULE  HUMBER  4 
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ENGINE  SUMMARY 


ENGINE  DIAMETER  -  1.81  FEET 

ENGINE  LENGTH-  5.27  FEET 
ENGINE  WEIGHT-  841.06  POUNDS 
BYPASS  RATIO  -  0.00 

NO  OF  ENGINES  PER  AC  -  1. 

A/C  DRAG  REF  AREA  -  160.00  SQ  FEET 

INLET  CAPTURE  AREA  PER  ENG  -  1.587  SQ  FEET 

rWCC  -  PERCENT  OF  ENGINE  CORRECTED  AIRFLOW 
THRUST  -  ENGINE  THRUST  (POUNDS  PER  ENGINE) 

SFC  -  ENGINE  SPECIFIC  FUEL  CONSUMPTION 

WTOT  -  ENGINE  TOTAL  AIRFLOW  (LBS/SEC  PER  ENGINE) 

OV  EF  -  ENGINE  OVERALL  EFFICIENCY 

PR  EF  -  ENGINE  PROPULSIVE  EFFICIENCY 

TPR  -  INLET  TOTAL  PRESSURE  RECOVERY  (TO  EN  FACE) 

NPR  -  NOZZLE  PRESSURE  RATIO 

TIT  -  TURBINE  INLET  TEMPERATURE  (DEG  R) 

EGT  -  ENGINE  EXHAUST  GAS  TEMPERATURE 

CPR  -  OVERALL  COMPRESSOR  PRESSURE  RATIO 

THRUSTU-  THRUST  PER  ENGINE  IN  LBS,  W/0  INSTAL  DRAG  CORR 

SFCU  -  SFC, 1 /HR,  W/O  INSTALLATION  DRAG  CORR 

ABYAC  -  FREESTREAM  BYPASS  FLOW  AREA/AC 

ABLAC  -  FREESTREAM  INLET  BLEED  FLOW  AREA/AC 

ANOZ  -  AREA  OF  NOZZLE  EXIT,  FT**2 

BETA  -  NOZZLE  BOATTAIL  ANGLE  IN  DEGREES 

AO/AC  -  FREE  STREAM  TO  CAPTURE  AREA  RATIO 

CDINS  -  TOT  INSTALLATION  DRAG  COEF  PER  A/C  (SWING  REF) 

CDADD  -  ADDITIVE  DRAG  COEF  PER  A/C  (SWING  REF) 

CDSP  -  SUBSONIC  SPILL  DRAG  COEFF  PER  A/C  (SWING  REF) 
CDBL  -  INLET  BLEED  DRAG  COEF  PER  A/C  (SWING  REF) 

CDBP  -  INLET  BYPASS  DRAG  PER  A/C  (SWING  REF) 

CDAUX  -  AUX  AIR  SYSTEM  DRAG  COEF  PER  A/C  (SWING  REF) 
CDDIV  -  INLET  BO.  LAYER  DIVERT  DRAG  PER  A/C  (SWING  REF) 
CDBT  -  NOZZLE  BOATTAIL  DRAG  COEF  PER  A/C  (SWING  REF) 

CD INF  -  DRAG  COEF  OF  BASE  AREA  BETWEEN  NOZZLES  (PER  A/C) 

INSTALL  DRAG  COEF  SCALE  FACTORS 
SFINSP  -  1.0000 

SFADP  -  1.0000 

SFADSP  -  1.0000 

SFBEP  -  1.0000 

SFBPP  -  1.0000 

SFAUXP  -  1.0000 

SFDIVP  -  1.0000 

SFIP  -  0.0000 

SFBTP  -  0.0000 
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MACH  -  0.000  ALTITODE  *  0.00  FEET 


PMCC 

THROST 

src 

NTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THROSTO 

SFCO 

ABYAC 

ABLAC 

ANOE 

BETA 

AO/AC 

COINS 

CDADD 

COSP 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO  INF 

100.0 

6044. 

0.816 

74. 

0.000 

0.000 

1.000 

4.95 

2600. 

1917. 

22.54 

6044. 

0.816 

0.000 

0.000 

3.12 

15.89 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

98.0 

6268. 

0.781 

73. 

0.000 

0.000 

1.000 

4.45 

2457. 

1782. 

21.47 

6268. 

0.781 

0.000 

0.000 

3.12 

15.89 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

96.0 

5711. 

0.747 

71. 

0.000 

0.000 

1.000 

3.99 

2319. 

1653. 

20.44 

5711. 

0.747 

0.000 

0.000 

3.12 

15.86 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

94.0 

5171. 

0.714 

70. 

0.000 

0.000 

1.000 

3.56 

2188. 

1530. 

19.43 

5171. 

0.714 

0.000 

0.000 

^.12 

15.78 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

92.0 

4648. 

0.681 

68. 

0.000 

0.000 

1.000 

3.15 

2062. 

1413. 

18.47 

4648. 

0.681 

0.000 

0.000 

3.12 

15.65 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

90.0 

4135. 

0.650 

67. 

0.000 

0.000 

1.000 

2.77 

1943. 

1302. 

17.53 

4135. 

0.650 

0.000 

0.000 

3.12 

15.44 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

88.0 

3636. 

0.620 

65. 

0.000 

0.000 

1.000 

2.42 

1829. 

1197. 

16.64 

3636. 

0.620 

0.000 

0.000 

3.12 

15.14 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

86.0 

3142. 

0.593 

64. 

0.000 

0.000 

1.000 

2.10 

1721. 

1098. 

15.77 

3142. 

0.593 

0.000 

0.000 

3.12 

14.68 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

84.0 

2646. 

0.572 

63. 

0.000 

0.000 

1.000 

1.81 

1618. 

1005. 

14.94 

2646. 

0.572 

0.000 

0.000 

3.12 

13.99 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

82.0 

2135. 

0.562 

61. 

0.000 

0.000 

1.000 

1.55 

1521. 

918. 

14.13 

2135. 

0.562 

0.000 

0.000 

3.12 

12.87 

1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 
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80.0  1580.  0.583  60.  0.000  0.000  1.000  1.31  1429.  836.  13.37 

1580.  0.583  0.000  0.000  3.12  10.80 

1000.000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000 


78.0  877.  0.767  58.  0.000  0.000  1.000  1.10  1342.  761.  12.63 

877.  0.767  0.000  0.000  3.12  4.93 

1000.000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000 


MACH  -  0.600  AITITODE  -  10000.00  FEET 


PWCC 

THRUST 

SFC 

MTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THRDSTU 

SFCD 

ABYAC 

ABLAC 

AHOZ 

BETA 

AO/AC 

COINS 

CD  ADD 

COSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD  INF 

100.0 

5041. 

0.970 

65. 

0.166 

0.357 

1.000 

6.31 

2596. 

1914. 

22.54 

5041. 

0.970 

0.000 

0.000 

3.12 

14.89 

1.126 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

98.0 

4558. 

0.541  64.  0.171 

0.375  1.000  5.68  2452.  1779. 

21.47 

4558. 

0.941  0.000  0.000 

3.12  14.92 

1.104 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000  0.0000 

0.0000 

96.0 

4093. 

0.913  63.  0.176 

0.394 

1.000 

5.09  2315. 

1650.  20.44 

4093. 

0.913  0.000  0.000 

3.12 

14.93 

1.081 

0.0000  0.0000  0.0000 

0.0000  0.0000 

O.OOoO  0.0000 

0.0000  0.0000 

94.0 

3645. 

0.887  61.  0.181 

0.416  1.000  4.53  2184. 

1527.  19.43 

3645. 

0.887  0.000  0.000 

3.12  14.91 

1.059 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000  0.0000 

92.0 

3213. 

0.863 

60. 

0.186 

0.441  1.000  4.02 

2059.  1411. 

18.47 

3213. 

0.863 

0.000 

0.000 

3.12  14.85 

1.036 

0.0000  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000  0.0000 

0.0000 

90.0 

2795. 

0.842  59.  0.191 

0.469  1.000  3.53  1940. 

1300.  17.53 

2795. 

0.842  0.000  0.000 

3.12  14.72 

1.014 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000  0.0000 

88.0 

2391. 

0.826  58.  0.195 

0.502  1.000  3.09  1826. 

1195.  16.64 

2391. 

0.826  0.000  0.000 

3.12  14.53 

0.991 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000  0.0000 

86.0 

1997. 

0.818  56.  0.197 

0.540  1.000  2.68  1718. 

1096.  15.77 

1997. 

0.818  0.000  0.000 

3.12  14.25 

0.969 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000  0.0000 
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84.0 

1610. 

0.824  55.  0.195 

0.587  1.000  2.31  1615. 

1003.  14.94 

1610. 

0.824  0.000  0.000 

3.12  13.82 

0.946 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000  0.0000 

82.0 

1224. 

0.859  54.  0.187 

0.646  1.000  1.97  1518. 

916. 

14.13 

1225. 

0.859  0.000  0.000 

3.12  13.17 

0.924 

0.0000  0.0000  0.0000 

0.0000  0.0070  0.0000  0.0000 

0.0000 

0.0000 

80.0 

831. 

0.970 

52. 

0.166 

0.72S 

1.000 

1.67 

1426. 

835. 

13.37 

831. 

0.970 

0.000 

0.000 

3.12 

12.14 

0.901 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

78.0 

411. 

1.435 

51. 

0.112 

0.844 

1.000 

1.40 

1339. 

759. 

12.63 

411. 

1.435 

0.000 

0.000 

3.12 

10.32 

0.879 

0.0000 

o.ooco 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

MACH  - 

0.800 

ALTITUDE  - 

30000.00  FEET 

PWCC 

THRDST 

SFC 

WTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THROSTO 

SPCO 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD  INF 

100.0 

2480. 

0.936 

36. 

0.212 

0.432 

1.000 

7.45 

2328. 

1700. 

22.54 

2480. 

0.936 

0.000 

0.000 

3.12 

14.05 

0.985 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

98.0 

2236. 

0.910 

35. 

0.218 

0.452 

1.000 

6.71 

2199. 

1580. 

21.47 

2236. 

0.910 

0.000 

0.000 

3.12 

14.11 

0.965 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

96.0 

2000. 

0.886 

34. 

0.224 

0.473 

1.000 

6.00 

2076. 

1464. 

20.44 

2000. 

0.886 

0.000 

0.000 

3.12 

14.14 

0.945 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

94.0 

1774. 

0.863 

34. 

0.230 

0.497 

1.000 

5.34 

1959. 

1355. 

19.43 

1774. 

0.863 

0.000 

0.000 

3.12 

14.15 

0.926 

0.0000 

0.0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

92.0 

1557. 

0.843 

33. 

0.235 

0.523 

1.000 

4.72 

1846. 

1250. 

18.47 

1557. 

0.843 

0.000 

0.000 

3.12 

14.12 

0.906 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

90.0 

1349. 

0.826 

32. 

0.240 

0.553 

1.000 

4.15 

1739. 

1152. 

17.53 

1349. 

0.826 

0.000 

0.000 

3.12 

14.04 

0.886 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 
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ee.o 

1147. 

0.814 

31. 

0.243 

0.587  1.000  3.63 

1638. 

1058.  16.64 

1147. 

0.814 

0.000 

0.000 

3.12  13.90 

0.666 

0.0000  0.0000 

0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0000  0.0000 

66.0 

952. 

0.610  31.  0.244 

0.625  1,000  3.15  1541. 

971. 

15.77 

952. 

0.810  0.000  0.000 

3.12  13.68 

0.847 

0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0000 

0.0000 

0.0000 

64.0 

761.  0.821  30.  0.241 

761.  0.821  0.000  0.000 

0.671  1.000  2.71 

3.12  13.35 

1449. 

686. 

14.94 

0.827  0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0000 

0.0000 

82.0 

574.  0.862  29.  0.230 

574.  0.862  0.000  0.000 

0.726  1.000  2.31 

3.12  12.86 

1362. 

811. 

14.13 

0.807  0.0000  0.0000  0.0000 

0.0000  0.0000  0.0000 

0.0000 

0.0000 

0.0000 

80.0 

387. 

0.976 

29. 

0.203 

0.795 

1.000 

1.95 

1279, 

739. 

13.37 

387. 

0.978 

0.000 

0.000 

3,12 

12.10 

0.788 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

76.0 

194. 

1.417 

26. 

0.140 

0.889 

1.000 

1.64 

1201. 

672. 

12.63 

194. 

1.416 

0.000 

0.000 

3.12 

10.88 

0.768 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

MACH  - 

1.000 

ALTITUDE  - 

30000. 

00  FEET 

AFTERBORHER  OR 

DDCTBORNER  (OR 

BOTH)  : 

LIT 

PWCC 

THRUST 

SFC 

HTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EOT 

CPR 

THROSTO 

SFCD 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CD  ADD 

CDSP 

CDBL 

CDBP 

CDADX 

CDDIV 

CDBT 

CD  INF 

100.0 

4899. 

1.661 

43. 

0.151 

0.384 

1.000 

9.32 

2478. 

1820. 

22.54 

4954  . 

1.643 

0.000 

0.000 

3.12 

9.76 

0.948 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4786. 

1.624  43.  0.154 

0.388  1.000  9.32  2476.  1820. 

22.54 

4841. 

1,605  0.000  0.000 

3.12  9.93 

0.948 

0.0008  0.0000  0,0000 

0.0000  0.0000  0.0000  0.0008  0.0000 

0.0000 

100.0 

4672. 

1.586  43.  0.158 

0.392  1.000  9.32 

2478. 

1620.  22.54 

4727. 

1.567  0.000  0.000 

3.12  10.10 

0.946 

0.0008  0.0000  0.0000 

O.OObO  0.0000  0.0000 

0.0008 

0.0000  0.0000 

100,0 

4557. 

1.547  43.  0.162 

0.397  1.000  9.32  2478. 

1820.  22.54 

4612. 

1.529  0.000  0.000 

3.12  10.27 

0.948 

0.0008  0.0000  0.0000 

0.0000  0.0000  0.0000  0.0008 

0.0000  0.0000 
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xoo.o 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


4442.  1.509 

4497.  1.490 

0.948  o.oooe 


4325.  1.470 
4380.  1.452 
0.948  0.0008 


4207.  1.431 
4262.  1.412 
0.948  0.0008 


4088.  1.391 
4143.  1.372 
0.948  0.0008 


3968.  1.350 
4023.  1.332 
0.948  0.0008 


3847.  1.310 
3902.  1.291 
0.948  0.0008 


3724.  1.268 
3779.  1.250 
0.948  0.0008 


3599.  1.226 
3654.  1.207 
0.948  0.0008 


3473.  1.183 
3528.  1.164 
0.948  0.0008 


3345.  1.139 
3400.  1.120 
0.948  0.0008 


3216.  1.093 
3271.  1.075 
0.948  0.0008 


43.  0.166 

0.000  0.000 
0.0000  0.0000 


43.  0.171 

0.000  0.000 
0.0000  0.0000 


43.  0.175 

0.000  0.000 
0.0000  0.0000 


43.  0.180 

0.000  0.000 
0.0000  0.0000 


43.  0.186 

0.000  0.000 
0.0000  0.0000 


43.  0.192 

0.000  0.000 
0.0000  0.0000 


43.  0.198 

0.000  0.000 
0.0000  0.0000 


43.  0.205 

0.000  0.000 
0.0000  0.0000 


43.  0.213 

0.000  0.000 
0.0000  0.0000 


43.  0.221 

0.000  0.000 
0.0000  0.0000 


43.  0.230 

0.000  0.000 
0.0000  0.0000 


0.401  1.000 

3.12  10.45 

0.0000  0.0000 


0.406  1.000 

3.12  10.63 

0.0000  0.0000 


0.411  1.000 

3.12  10.81 

0.0000  0.0000 


0.416  1.000 

3.12  11.00 

0.0000  0.0000 


0.422  1.000 

3.12  11.20 

0.0000  0.0000 


0.428  1.000 

3.12  11.40 

0.0000  0.0000 


0.434  1.000 

3.12  11.61 

0.0000  0.0000 


0.441  1.000 

3.12  11.83 

0.0000  0.0000 


0.448  1.000 

3.12  12.05 

0.0000  0.0000 


0.455  1.000 

3.12  12.28 

0.0000  0.0000 


0.463  1.000 

3.12  12.52 

0.0000  0.0000 


9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 

9.32  2478. 

0.0000  0.0008 


1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 

1820.  22.54 

0.0000  0.0000 
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MACH  -  1.200  ALTITUDE  -  30000.00  FEET 


AFTERBOBNER  OR  DOCTBDRMER  (OR  BOTH)  LIT 


PWCC 

THRDST 

SFC 

MTOT 

OV  EF 

PR  EF 

TPR 

NPR 

TIT 

EGT 

CPR 

THROSTD 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDAOD 

CDSP 

CDBL 

CDBP 

CDADX 

CDDIV 

CDBT 

CD  INF 

100.0 

5925. 

1.660 

53. 

0.181 

0.433 

0.991 

11.46 

2600. 

1901. 

22.54 

6004. 

1.638 

0.000 

0.000 

3.12 

8.48 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5781. 

1.624 

53. 

0.186 

0.438 

0.991 

11.46 

2600. 

1901. 

22.54 

5860. 

1.602 

0.000 

0.000 

3.12 

8.65 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5636. 

1.587 

53. 

0.190 

0.442 

0.991 

11.46 

2600. 

1901. 

22.54 

5715. 

1.565 

0.000 

0.000 

3.12 

8.83 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5490. 

1.550 

53. 

0.195 

0.447 

0.991 

11.46 

2600. 

1901. 

22.54 

5569. 

1.528 

0.000 

0.000 

3.12 

9.01 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5343. 

1.512 

53. 

0.199 

0.452 

0.991 

11.46 

2600. 

1901. 

22.54 

5422. 

1.490 

0.000 

0.000 

3.12 

9.20 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5195. 

1.474 

53. 

0.205 

0.457 

0.991 

11.46 

2600. 

1901. 

22.54 

5274. 

1.452 

0.000 

0.000 

3.12 

9.39 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5045. 

1.436 

53. 

0.210 

0.462 

0.991 

11.46 

2600. 

1901. 

22.54 

5124. 

1.414 

0.000 

0.000 

3.12 

9.58 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4894. 

1.397 

53. 

0.216 

0.468 

0.991 

11.46 

2600. 

1901. 

22.54 

4973. 

1.375 

0.000 

0.000 

3.12 

9.79 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4741. 

1.358 

53. 

0.222 

0.474 

0.991 

11.46 

2600. 

1901. 

22.54 

4820. 

1.336 

0.000 

0.000 

3.12 

9.99 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4586. 

1.318 

53. 

0.229 

0.480 

0.991 

11.46 

2600. 

1901. 

22.54 

4665. 

1.296 

0.000 

0.000 

3.12 

10.21 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 
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100.0 

4430. 

1.277 

53. 

0.237 

0.487 

0.991 

11.46 

2600. 

1901. 

22.54 

4509. 

1.255 

0.000 

0.000 

3.12 

10.43 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

o.oooo 

0.0008 

0.0000 

0.0000 

100.0 

A212. 

1.236 

53. 

0.245 

0.494 

0.991 

11.46 

2600. 

1901. 

22.54 

4351. 

1.213 

0.000 

0.000 

3.12 

10.65 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4112. 

1.193 

53. 

0.254 

0.501 

0.991 

11.46 

2600. 

1901. 

22.54 

4191. 

1.171 

0.000 

0.000 

3.12 

10.89 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

3949. 

1.150 

53. 

0.264 

0.509 

0.991 

11.46 

2600. 

1901. 

22.54 

4028. 

1.127 

0.000 

0.000 

3.12 

11.13 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

3784. 

1.105 

53. 

0.274 

0.517 

0.991 

11.46 

2600. 

1901. 

22.54 

3863. 

1.083 

0.000 

0.000 

3.12 

11.39 

0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

MACH  - 

1.600 

ALTITUDE  « 

30000.1 

00  FEET 

AFTERBOBMER  OR 

DOCTBORMER  <OR 

BOTH)  : 

LIT 

PWCC 

THRDST 

SFC 

NTOT 

OV  EF 

PR  EF 

TPR 

MPR 

TIT 

E6T 

CPR 

THROSTO 

SFCO 

ABYAC 

ABLAC 

ANOZ 

BETA 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDADX 

CDDIV 

CDBT 

CD  INF 

100.0 

8601. 

1.741 

82. 

0.231 

0.530 

0.954 

14.37 

2600. 

1780. 

22.54 

8733. 

1.715 

0.000 

0.000 

3.12 

4.07 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

8369. 

1.706 

82. 

0.236 

0.534 

0.954 

14.37 

2600. 

1780. 

22.54 

8500. 

1.680 

0.000 

0.000 

3.12 

4.28 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

8134. 

1.671 

82. 

0.241 

0.539 

0.954 

14.37 

2600. 

1780. 

22.54 

8266. 

1.644 

0.000 

0.000 

3.12 

4.48 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

7898. 

1.635 

82. 

0.246 

0.545 

0.954 

14.37 

2600. 

1780. 

22.54 

8030. 

1.608 

0.000 

0.000 

3.12 

4.70 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 
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100.0 

7661. 

1.599 

82. 

0.252 

0.550 

0.954 

14.37 

2600. 

1780. 

22.54 

7793. 

1.572 

0.000 

0.000 

3.12 

4.92 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

7421. 

1.562 

82. 

0.258 

0.556 

0.954 

14.37 

2600. 

1780. 

22.54 

7553. 

1.535 

0.000 

0.000 

3.12 

5.14 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

7179. 

1.526 

82. 

0.264 

0.562 

0.954 

14.37 

2600. 

1780. 

22.54 

7311. 

1.498 

0.000 

0.000 

3.12 

5.38 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6935. 

1.488 

82. 

0.271 

0.568 

0.954 

14.37 

2600. 

1780. 

22.54 

7067. 

1.460 

0.000 

0.000 

3.12 

5.61 

1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6688. 

1.450 

82. 

0.279 

0.574 

0.954 

14.37 

2600. 

1780. 

22.54 

6820. 

1.422 

0.000 

0.000 

3.12 

5.86 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6439. 

1.412 

82. 

0.286 

0.581 

0.954 

14.37 

2600. 

1780. 

22.54 

6571. 

1.383 

0.000 

0.000 

3.12 

6.11 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6187. 

1.372 

82. 

0.295 

0.589 

0.954 

14.37 

2600. 

1780. 

22.54 

6319. 

1.344 

0.000 

0.000 

3.12 

6.37 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5932. 

1.332 

82. 

0.304 

0.596 

0.954 

14.37 

2600. 

1780. 

22.54 

6064. 

1.303 

0.000 

0.000 

3.12 

6.64 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5673. 

1.291 

82. 

0.314 

0.604 

0.954 

14.37 

2600. 

1780. 

22.54 

5805. 

1.262 

0.000 

0.000 

3.12 

6.91 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5411. 

1.249 

82. 

0.325 

0.613 

0.954 

14.37 

2600. 

1780. 

22.54 

5543. 

1.219 

0.000 

0.000 

3.12 

7.20 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5146. 

1.205 

82. 

0.337 

0.622 

0.954 

14.37 

2600. 

1780. 

22.54 

5278. 

1.175 

0.000 

0.000 

3.12 

7.50 

1.129 

0.0007 

0.0000 

0.0000 

0.0000  0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

SEA-LEVEL  STATIC  THRUST  - 
SEA-LEVEL  SFC 
CALLING  MODULE  NUMBER  6 


9500 .  (MAX) 
1.466 
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NEIGHT  STATEMENT  -  FIGHTERS 
***  WEIGHTS  DATA  *** 

ACSYNT  MODULE  HUMBER  6 


COMPONENT 

POUNDS 

KILOGRAMS 

PERCENT 

AIRFRAME  STRUCTURE 

1138. 

516. 

22.79 

WING 

421. 

191. 

8.43 

FUSELAGE 

535. 

243. 

10.71 

HORIZCHITAL  TAIL 

0. 

0. 

0.00 

VERTICAL  TAIL 

50. 

23. 

1.01 

CANARD 

17. 

8. 

0.34 

NACELLES 

13. 

6. 

0.26 

ALIGHTING  GEAR 

102. 

46. 

2.05 

PROPULSION 

1093. 

496. 

21.89 

ENGINES  (1) 

976. 

443. 

19.53 

FUEL  SYSTEM 

118. 

53. 

2.36 

FIXED  EQUIPMENT 

559. 

254. 

11.19 

BYD.  +  PNEU. 

42. 

19. 

0.84 

ELECTRICAL 

90. 

41. 

1.80 

AVIONICS 

210. 

95. 

4.20 

INSTRUMENTATION 

29. 

13. 

0.58 

DE-ICE/AIR  CONDITION 

0. 

0. 

0.00 

AUXILIARY  GEAR 

26. 

12. 

0.53 

FURNISH.  +  EQPT. 

0. 

0. 

0.00 

FLIGHT  CONTROLS 

162. 

73. 

3.24 

FUEL 

1804. 

818. 

36.12 

PAYLOAD 

400. 

181. 

8.01 

FLIGHT  CREW  (  0) 

0. 

0. 

0.00 

ARMAMENT 

0. 

0. 

0.00 

AMfUNITIOH 

0. 

0. 

0.00 

MISSILES 

0. 

0. 

0.00 

BOMBS 

0. 

0. 

0.00 

EXTERNAL  TANKS 

0. 

0. 

0.00 

ADV.  WEAPONS  1 

0. 

0. 

0.00 

ADV.  WEAPONS  2 

0. 

0. 

0.00 

CALCULATED  WEIGHT 

4994. 

2265. 

100.00 

ESTIMATED  WEIGHT 

4994. 

2265. 

PERCENT  ERROR  0.00 


CALLING  MODULE  NUMBER  11 
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SOMIARY 


-  ACSYNT  OUTPDT  -  NASA,  AMES  RESEARCH  CENTER 


OBLIQDE  WING  DAV 


GENERAL 

FUSELAGE 

WING 

CANARD 

VTAIL 

NG 

4994. 

LENGTH 

19.0 

AREA 

160.0 

25.0 

20.0 

N/S 

31.2 

DIAMETER 

3.0 

WETTED  AREA 

304.5 

20.5 

36.1 

T/W 

1.90 

VOLUME 

101.7 

SPAM 

29.7 

7.7 

7.7 

M(Z)  OLT  15.0 

NETTED  AREA 

166.6 

L.E.  SWEEP 

5.6 

30.0 

32.3 

CREN 

0. 

FINENESS 

RATIO 

6.3 

C/4  SWEEP 

0.0 

21.7 

27.6 

PASENGERS  0 . 

ASPECT  RATIO 

5.50 

2.40 

3.00 

TAPER  RATIO 

0.30 

0.40 

0.50 

ENGINE 

WEIGHTS 

T/C  ROOT 

0.06 

0.06 

0.07 

T/C  TIP 

0.06 

0.06 

0.06 

NOMBER 

1. 

W 

WG 

ROOT  CHORD 

8.3 

4.6 

3.4 

LENGTH 

5.3 

STRUCT. 

1136. 

22.6 

TIP  CHORD 

2.5 

1.8 

1.7 

DIAM. 

1.8 

PROPUL. 

1093. 

21.9 

M.A.  CHORD 

5.9 

3.4 

2.7 

HEIGHT 

841.1 

FIX.  EQ. 

559. 

11.2 

LOC.  OF  L.E. 

8.4 

0.9 

15.6 

TSLS 

9500. 

FUEL 

1604. 

36.1 

SFCSLS 

1.47 

PAYLOAD 

400. 

8.0 

MISSION  SUMMARY 

PHASE 

MACH 

ALT 

FUEL 

TIME 

DIST 

L/D 

THRUST 

SFC 

Q 

TAKEOFF 

0.00 

0. 

173. 

5.5 

2416.9 

CLIMB 

0.94 

30000. 

49. 

0.6 

2.6 

9.29 

3282.6 

1.004 

389.8 

CRUISE 

0.80 

30000. 

182. 

30.5 

240.0 

13.35 

348.3 

1.023 

282.1 

ACCEL 

1.60 

30000. 

131. 

0.7 

9.3 

0.72 

8601.2 

1.741 

1128.4 

COMBAT 

1.60 

30000. 

892. 

4.0 

62.9 

3.26 

8061.2 

1.660 

1128.4 

CRUISE 

0.60 

30000. 

116. 

20.4 

160.0 

10.91 

320.7 

1.063 

282.1 

DESCENT 

0.26 

0. 

157. 

24.0 

84.7 

17.37 

434.5 

1.286 

100.8 

LANDING 

12617.1 

BLOCK  TIME  - 

1.337  HR 

BLOCK  RANGE  - 

559.5  NM 

COMBAT  PHASES 

MACH  ALT  PSIG  NZS  CLS  CDS  ALS  NZI  PSI  CLI  CDI  ALI  CBE 
l.SO  30000.  846.  6.9  0.145  0.0445  4.2  10.0  -835.  0.221  0.0573  6.2203564. 
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XIV.  TROUBLESHOOTING 


A.  OVERVIEW 

While  every  effort  has  been  made  with  CREATE  to  prevent  errors  from 
occuring  with  ACSYNT,  crashes  still  occur,  lypically  when  working  with  a  new 
design.  When  ACSYNT  does  crash,  a  printout  like  the  one  in  Figure  8  occtirs. 
This  printout  can  be  used  in  tracking  down  the  probable  source  of  the  error  so 
that  a  correction  may  be  made.  On  the  right  side  of  the  output  is  a  listing  of 
the  ACSYNT  subroutines  that  were  in  use  at  the  time  of  the  crash.  The  first 


%TRACS'-E'-TRACEBaCKi  aymbollo  stack  dunp  follows 


modulo  nsiiM 

rout ins  nams 

lins 

rsl  PC 

abs  PC 

0015E79E 

0015E79E 

0015B69B 

0015E69B 

0015A818 

0015A8ie 

PKODR 

PRODR 

318 

00001882 

OOOF1686 

PRODRl 

PROORl 

9 

0000003E 

000F45C6 

PROPEXEC 

PROPEXEC 

13 

00000034 

000F7FF8 

OVER3 

OVER3 

62 

00000049 

00105229 

ACSCYC 

ACSCYC 

92 

00000 1D8 

OOODBFAO 

ACSOOT 

ACSOOT 

24 

00000062 

OOODBABA 

ANALIZ 

ANALIZ 

30 

00000080 

000DB488 

COPES 

COPES 

247 

000008E8 

000CD6E8 

Figure  8.  Sample  Error  Output 


subroutine  (in  this  case  PRODR)  is  the  subroutine  where  the  error  occured. 
The  ACSYNT  "chain"  traces  down  to  COPES,  the  main  entry  point  for 


ACSYNT.  Knowing  that  the  error  occured  in  the  PRODR  subroutine  lets  the 
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user  know  that  the  probable  cause  Ues  with  the  Propulsion  inputs.  A  listing 
of  the  subroutines  for  each  Module  of  ACSYNT  is  given  in  the  Ustings  below. 
Note  that  the  user  does  not  have  control  over  all  of  the  Modules  shown  below, 
but  they  are  given  for  completeness. 


•  ACSYNT  Control:  ACSCYC,  ACSIN,  ACSOUT,  ANALIZ,  AT62, 
CONVG,  DATAIO,  DATARD,  SUMARY,  SUMCVT,  SUMPRT,  TAINT 

•  Analysis  Methods:  COPES,  COPEOl  through  COPE18,  CONMIN, 
CNMNOl  through  CNMN08.  OVERl 

•  Geometry  Module:  AVOL,  AVWING,  BDREQD,  BDYOUT,  BODYl, 
BODY2,  CHECKR,  CHECKX,  CRWSIZ,  ERROR,  FUSFIT,  GCALC2, 
GEOMl,  GINTT,  GINPUT,  GPLOT,  GPRINT,  GREAD,  LOCELE, 
LOCENG,  LOCFUL,  LOCREW,  LOCPAY,  OVER2,  PASSIZ,  PLOTA5, 
PLOTA6,  PLOTA7,  PLOTA8,  PLOTV2,  PODLOC,  PRFUEL, 
PRINTOUT,  SCANER,  SIZE,  STRCALC,  SWPANG,  TAILS,  TAILXX, 
VOLWNG,  WCOOR,  WNGOUT 

•  Tr^ectory  Module:  ACCEL,  CLIMB,  COMBAT,  CONVGR,  CRUISE, 
DESCNT,  FINDG,  GOLDEN,  LOITER,  MAXRC,  MISSION,  OVER3, 
TAKEOF,  TRAJA,  TRAJDT,  TRAJIN,  TRAJOI,  TRAJOO,  TRPLOT 


•  Aerodynamics  Module:  AER02,  AEROX,  AXE,  AXEIN,  AZROIN, 
BCLCD,  BIV,  COGEOM,  DATIN,  DATOUT,  DECIDE,  ENDRAG, 
EXTRDG,  FDCLCD,  FLAPS,  FRCTN,  FRICN,  FUDGE,  GEOM, 
GEOMB,  GEOMC,  GEOMN,  GEOSET,  INITIAL,  INTERPOLATE, 
nSTTFDG,  LIFT,  MAIN,  THERMO,  TRIMDG,  WAVEl,  WAVES, 
WAVEDG 

•  Propulsion  Module:  BRCKTl,  BRCKT2,  CDADDI,  CDAUXI,  CDBTA, 
CDBTAIL,  CDBYPA,  CDDIVI,  CHLSKY,  COMP,  ENGCDI,  ENGSET, 
ENGWT,  GABSOIL,  INPUT,  INTRPL,  LEWIS  ENGINE  SCALE, 
LSTSQR,  MATMPY,  OFFDl,  PODGEO,  PRINL,  PRODR,  PRODRl, 
PRODR2,  PRODR3,  PROP,  PROPEXEC,  PROUT,  PRSUBS,  SIZIN, 
TURBI,  TURBOU,  XINLET,  XPODGEO,  XZEROIN,  ZEROIN 


•  Weights  Module:  WAVEOO  through  WAVE03 
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CREATE  has  removed  virtually  all  probability  of  errors  with  the 
Geometry,  Aerodynamics  cmd  Weights  modules.  Errors  do  occur  with  the 
Tred^tory  and  Propulsion  modules.  The  most  common  ones  are  given  in  the 
following  sections. 

B.  TRAJECTORY  ERRORS 

Trajectory  errors  are  almost  always  associated  in  some  form  with  the 
proptilsion  system  installed  on  the  design,  t3npically  due  to  insufficient  or  too 
much  thrust.  Listed  below  are  the  more  prevelant  errors  and  the  solutions. 


•  Mach  Number  Exceeds  2.0  in  Climb  Phase:  When  this  occurs  the  rate  of 
climb  is  set  to  0.0,  which  results  in  an  additional  warning  of  "Ceiling 
Reached".  This  can  occur  for  designs  with  a  high  thrust  to  wei^t  ratio 
climbing  at  a  high  throttle  setting.  Reduce  the  throttle  and  if  climbing 
more  than  20,000  feet,  try  using  two  climb  phases  instead  of  1. 

*  Drag  is  Thrust:  This  may  be  caused  by  several  factors.  The 

most  common  is  to  have  a  poorly  defined  geometry.  A  high  thickness  to 
chord  ratio  on  a  supersonic  aircraft  can  result  in  a  high  wave  drag,  or  the 
nose  fineness  ratio  may  not  be  high  enough.  Engine  thrust  also  dies  out 
as  the  mach  number  increases.  Running  a  turbojet  at  speeds  in  excess 
of  mach  2.4  is  difficult  with  ACSYNT.  If  a  swept  wing  is  being  used, 
ensiure  that  the  sweep  is  programmed  correctly.  Also  ensure  that  the 
engine  efficiencies  are  set  correctly.  This  warning  will  also  occur  if  the 
time  is  set  to  0.0  during  an  acceleration  phase. 
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C.  PROPULSION  ERRORS 


The  following  error  messages  may  occur  with  the  Propulsion  Module.  The 
solutions  are  taken  from  Reference  4. 


•  P5  is  Less  Than  PfiS:  The  total  pressure  at  the  nozzle  entrance  is  less 
than  the  free  stream  static  pressure.  This  is  the  result  of  removing  too 
much  energy  from  the  primary  flow  with  the  turbines.  Increase  the 
throttle  setting,  decrease  the  energy  required  for  the  fan  or  increase  the 
altitude. 

•  Fuel-Air  Mucture  is  Greater  Than  StoiA:  The  fiiel-air  mixture  in  the 
afterburner  or  ductbumer  is  greater  than  stoichiometric.  Reduce  the 
combustion  temperatxire. 

•  T5  is  Less  Than  T4M:  The  afterburner  entry  temperature  is  less  than 
the  turbine  exit  temperature.  Increase  the  afterburner  combustion 
temperature. 

•  T7  is  Less  Than  Til;  The  ductbumer  temperature  is  less  than  the  fan 
exit  temperature.  Increase  the  ductbumer  combustion  temperature. 

•  T41D  is  Negative:  The  turbine  exit  temperature  is  negative.  The  turbine 
inlet  temperature  is  too  low  or  too  much  energy  is  being  removed  by  the 
tmbine. 
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APPENDIX  A 


PROGRAM  CREATE 


-  THIS  PROGRAM  IS  TO  BE  USED  AS  AN  AID  IN  CREATING  THE  ACSYNT  .ACS 

-  FILE.  DEDICATED  USERS  OF  ACSTNT  WILL  WANT  TO  BYPASS  THIS  PROGRAM 

-  AND  EDIT  THE  '.ACS'  FILE  THEMSELVES. 

-  CREATE  WAS  DEVELOPED  BY  LT  JOHN  PARKER,  NAVAL  POSTGRADUATE 

-  SCHOOL,  SPRING  1991 


LIST  OF  VARIABLES  (NON-ACSYNT  SPECIFIC) 


- ANS: 

-  DVFLAG: 

- EXT: 

-  FILE: 

- LV: 

-  NAME: 

-  NVFLAG: 

-  STFLAG: 

-  TITLE: 

-  TOFLAG: 


MISC  QUESTION/ANSWER 

FLAG  TO  USE  THE  DEFAULT  VARIABLES  (I.E.  A  NEW  FILE  IS 
CREATED) 

.ACS  (THIS  IS  ADDED  ON  TO  THE  FILENAME  FOR  THE  FILE 
(EXTENSION) 

THE  FILENAME  WITH  THE  EXTENSION 

A  LOGICAL  VARIABLE  THAT  DETERMINES  THE  EXISTENCE  OF  A 
FILE.  IF  TRUE  THEN  THE  FILE  EXISTS. 

THE  FILENAME  WITHOUT  THE  EXTENSION 

FLAG  TURNING  THE  NAVY  MODULE  ON/OFF 

FLAG  TURNING  THE  STABILITY  >K)DULE  ON/OFF 

THE  PROJECT  TITLE.  ALSO  USED  AS  A  MISC  80  CHARACTER 

VARIABLE 

FLAG  SETTING  THE  TAKE-OFF  MODULE  ON /OFF 


-  FILES:  UNIT  7  -  THE  CURRENT  .ACS  DATA  FILE 

-  UNIT  10  -  THE  BACK-UP  OF  THE  ORIGINAL  DATA  FILE 


CHARACTER  ANS*6,  EXT*4,  FILE*10,  NAME*6,  TITLE*80,  TEMP*3, 
tATYPE»10 

LOGICAL  LV,  DVFLAG,  STFLAG,  TOFLAG,  NVFLAG 
INTEGER  GETLEN,  AIDSGN,  STATUS,  LIBSSPAWN 

DIMENSION  SNS(8),  NSN(8),  AIDSGN (20),  NREAD(IO),  NEXEC(IO), 
iHWRITE(lO),  VUB(50),  VLB(50),  TX(50),  BL(50),  BU(50),  ICON(50) 
REAL  LOWER 
EXT-' .ACS' 

STFLAG-. FALSE. 

TOFLAG- . FALSE . 

DVFLAG-. FALSE. 

NVFLAG-. FALSE. 


-  SET-UP  THE  DATA  FILE 


5  STATUS  -  LIBSSPAWN (' CLS ' ) 

WRITE (6, 10) 

10  FORMAT (// 

S7X, 'IF  YOU  HAVE  NOT  USED  THIS  PROGRAM  BEFORE  TO  CREATE  AN'/ 
t7X, 'ACSYNT  DATA  FILE,  YOU  SHOULD  SELECT  (2)  IN  THE  MENU'/ 
47X, ' BELOW. ' //7X, ' (1)  READ  A  PREVIOUSLY  CREATED  FILE'/ 

47X, ' (2)  CREATE  A  NEW  FILE'/ 


S7X,'(3)  QUIT' //7X, 'SELECT  1,  2,  OR  3:  '$) 

READ (5, 20)  ANS 
20  FORMAT (Al) 

IF(ANS.EQ.'l')  GOTO  50 
IF (ANS. EQ.' 2')  GOTO  100 
1F(ANS.EQ.'3')  STOP 
GOTO  5 

C  -  OPEN  A  PREVIOUSLY  CREATED  FILE.  IF  THAT  FILE  DOES  NOT  EXIST, 

C  -  CHECK  THE  SPELLING  AND  TRY  AGAIN.  IF  IT  STILL  DOES  NOT  EXIST, 

C  -  QUIT  OR  CREATE  A  NEW  ONE 

50  WRITE (6, 55) 

55  FORMAT (/7X, 'ENTER  THE  NAME  OF  THE  ACSYNT  DATA  FILE:  ',$) 

READ  (5,  60)  NAME 
60  FORMAT (A6) 

FILE-NAME (1 :GETLEN (NAME) ) //EXT 
INQUIRE (FILE-FILE, EXIST-LV) 

IF (LV.EQ. .TRUE.)  THEN  !  THE  FILE  EXISTS 

OPEN (UNIT-7,  FILE-FILE, BLANK-' NULL'  , STATUS-' OLD'  , 

&  ACCESS-' SEQUENTIAL' , FORM-' FORMATTED' ) 

ELSE 

WRITE (6, 65) 

65  FORMAT (/7X, 'THAT  FILE  DOES  NOT  EXIST.  CHECK  YOUR  SPELLING'/ 

&  7X, 'AND  TRY  AGAIN.  DO  NOT  ADD  THE  3  LETTER  FILE  EXTENSION'/ 

&  /7X, 'ENTER  THE  FILENAME:  ',$) 

READ  (5,  60)  NAME 

FILE-NAME (1:GETLEN( NAME) ) //EXT  !  GET  RID  OF  THE  BLANKS 
INQUIRE (FILE-FILE, EXIST-LV) 

IF (LV.EQ. .FALSE. )  THEN 
70  WRITE (6, 75) 

75  FORMAT (/7X, 'THAT  FILE  DOES  NOT  EXIST.  WOULD  YOU  LIKE  TO:'/ 

&  7X,'(1)  CREATE  A  NEW  FILE' /7X,' (2)  QUIT'// 

&  7X,' SELECT  1  OR  2:  '$) 

READ (5, 20)  ANS 
ir(ANS.EQ.'l')  GOTO  100 
IF (ANS.EQ.'2' )  STOP 
GOTO  70 
ELSE 

OPEN (UNIT-7 , FILE-FILE, BLANK-' NULL' , STATUS-' OLD' , 

&  ACCESS-' SEQUENTIAL' , FORM-' FORMATTED' ) 

ENDIF 

ENDIF 

C  -  OPEN  A  TEMPORARY  FILE  AND  COPY  THE  ACS  FILE  TO  IT.  THIS  WILL 

C  -  PREVENT  DATA  OVERWRITE  AS  THE  ACS  FILE  IS  UPDATED  WITH  THE 

C  -  NEW  DATA.  IT  ALSO  SERVES  AS  A  BACK-UP  FILE  IN  CASE  THE  CURRENT 

C  -  SESSION  ENDS  PREMATURELY 

OPEN (UNIT-10,  FILE-' TEMP. DAT' , ACCESS-' SEQUENTIAL'  , FORM-' FORMATTED' , 
4STATUS-' UNKNOWN' ) 

REWIlH)  (7) 

REWIND (10) 

DO  97  T-1,1000 

READ (7, 90, END-95)  TITLE 
90  FORMAT (ABO) 

WRITE (ID, 90)  TITLE 
97  CONTINUE 
95  GOTO  200 

C  -  CREATE  A  NEW  FILE.  CHECK  TO  SEE  IF  THAT  FILENAME  IS  ALREADY 

C  -  BEING  USED. 

100  WRITE (6, 102) 

102  FORMAT (/7X, 'ENTER  THE  FILENAME  THAT  YOU  WISH'/ 

47X,'TO  USE  (UP  TO  6  CHARACTERS):  ',?) 
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READ  {5,  60)  NAME 

FILE-NAME (1:GETLEN (NAME) ) //EXT  *  GET  RID  OF  THE  BLANKS 
INQUIRE (FILE-FILE, EXIST-LV) 

IF(LV.EQ. .TRUE.)  THEN 

PRINT*,'  THAT  FILENAME  IS  ALREADY  IN  USE' 

GOTO  100 
ELSE 

OPEN (UNIT-7,  FILE-FILE, BLANK-' NULL' , STATUS-' NEW' , 

&  ACCESS-' SEQUENTIAL' , FORM-' FORMATTED' ) 

DVFLAG-.TRUE. 

ENDIF 


-  THIS  SECTION  WILL  ESTABLISH  THE  COPES  DATA  BLOCKS.  IF  THE  FILE 

-  WAS  PREVIOUSLY  CREATED  THEN  AN  OPTION  IS  GIVEN  TO  BYPASS  THIS 

-  SECTION  AND  PROCEED  TO  THE  ACSYNT  CONTROL  SECTION 


200  IF (DVFLAG.EQ. .FALSE.)  THEN 
STATUS  -  LIB$SPAWN('CLS') 

WRITE (6, 205) 

205  FORMAT  (// 

&  7X, 'DO  YOU  WISH  TO  ALTER  THE  METHOD  OF  ANALYSIS?'/ 

«  7X, ' (THIS  WOULD  MEAN  CHANGING  THE  DESIGN  OR  SENSITIVITY' / 

6  7X,' VARIABLES,  OR  A  CHANGE  IN  THE  CONSTRAINTS)'// 

&  7X,'{1)  YES'/7X,'(2)  NO'// 

&  7X, 'SELECT  1  OR  2:  '$) 

READ (5, 20)  ANS 

-  IF  THE  ANSWER  IS  NO,  THEN  MOVE  THE  FILE  POINTER  TO  THE  TOP 

-  OF  THE  ACSYNT  CONTROL  SECTION  (BYPASSING  COPES  DATA) 

IF(ANS.EQ.'2' )  THEN 
REWIND (7) 

DO  215  1-1,50 
READ(7,210)  ANS 
210  FORMAT  (A3) 

IF(ANS.EQ.'END')  GOTO  1000  !  END  IS  DATA  BLOCK  V  RELATED 

215  CONTINUE 

ENDIF 

IF(ANS.NE.'l')  GOTO  200 
ENDIF 

220  STATUS  -  LIB$SPAWN('CLS') 

WRITE (6, 230) 

230  FORMAT (/// 

fi7X, '**  ANALYSIS  METHOD  **'// 

&7X, '(1)  SIMPLE  ANALYSIS.  (NO  VARIABLE  OPTIMIZATION  AND'/ 

S7X,  '  NO  CONSTRAINTS)  .'/ 

&7X, ' (2)  OPTIMIZATION.  (OPTIMIZE  A  VARIABLE  GIVEN  A  SET'/ 

&7X,  '  OF  DESIGN  VARIABLES)'/ 

&7X,  '  (3)  SENSITIVITY.  (DETERMINE  THE  EFFECT  OF  A  SET  OF'/ 

&7X,  '  VARIABLES  ON  THE  BEHAVIOR  OF  ANOTHER  VARIABLE)'// 

S7X, 'SELECT  1,  2  OR  3 :  '$) 

READ(5,20)  ANS 
IF(ANS.EQ.'l' )  GOTO  300 
IF(ANS.EQ.'2')  GOTO  400 
IF (ANS. EQ.' 3')  GOTO  700 
GOTO  220 


-  SIMPLE  ANALYSIS 

-  NCALC-1,  NDV-0,  NSV-0,  N2VAR-0,  NXAPRX-0,  IPNPUT-2,  lPDBG-0 

- DATA  BLOCKS  A,  B  AND  V  WILL  BE  CC»1PLETED 


300  WRITE (6, 305) 
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SAFLAG-.TRUE. 

305  FORMAT (//7X, 'ENTER  A  TITLE  FOR  THIS  PROJECT  (OP  TO  80'/ 
&7X, 'CHARACTERS) :  ',$) 

READ (5/ 310)  TITLE 
310  FORMAT (A80) 

REWIND (7) 

WRITE (7, 320)  TITLE 
320  FORMAT ('$  DATA  BLOCK  A'/A80) 

WRITE (7, 330) 

330  FORMAT ('S  DATA  BLOCK  B' /' 1, 0, 0, 0, 0, 1, 0' ) 

WRITE (7, 340) 

340  FORMAT('$  DATA  BLOCK  V'/'END') 

GOTO  1000 


- OPTIMIZATION 

-  NCALC-2,  NSV-0,  N2VAR-0,  NXAPRX-0,  IPNPUT-2,  IPDBOG-0,  ALL  OF 

-  DATA  BLOCK  C  IS  DEFAULTED,  FDCH-.02,  FDCHM-.OOl,  CT-.04, 

-  CTMIN-.001,CTLMIN— .01,  THETA-1.0,  DELFUN-.OOl,  DABFUN-.OOl, 

-  ALPHX-0.1,  ABOEJl-0.1,  NDVTOT-NDV,  AMULT-1.0 

- DATA  BLOCKS  A-I  AND  V  WILL  BE  COIPLETBD 


400  WRITE (6, 305) 

READ (5, 310)  TITLE 
REWIND  (7) 

WRITE (7, 320)  TITLE 

404  STATUS  -  LIBS SPAWN (' CLS' ) 

WRITE (6, 405) 

405  FORMAT (/7X, 'ENTER  THE  GLOBAL  NUMBER  OF  THE  OBJECTIVE  VARIABLE' 
4/7X, ' (THE  OBJECTIVE  VARIABLE  IS  THE  ONE  THAT  WILL  BE' / 

S7X, 'OPTIMIZED  BY  ACSYNT) :  ',$) 

READ (5,410, ERR-404)  lOBJ 
410  FORMAT (13) 

1F( (10BJ.GT.999) .OR. (lOBJ.LT.l))  GOTO  404 
420  WRITE (6, 425) 

425  FORMAT (/7X, 'DO  YOU  WISH  TO  MINIMIZE  THE  OBJECTIVE  VARIABLE'/ 
47X, 'OR  MAXIMIZE  IT?' //7X, ' (1)  MINIMIZE'/ 
fi7X,'(2)  MAXIMIZE' //7X, 'SELECT  1  OR  2:  ',$) 

READ  (5, 20)  ANS 

IF  (ANS .  EQ .  '  1 '  )  SGNOPT— 1 . 0 

IF (ANS. EQ.' 2')  SGNOPT-1.0 

1F((ANS.NE.'1') .AND. (ANS.NE.'2'))  GOTO  420 
430  STATUS  -  LIB$SPAWN('CLS') 

WRITE (6, 435) 

435  FORMAT (//7X, 'ENTER  THE  TOTAL  NUMBER  OF  DESIGN  VARIABLES'/ 

S7X, ' (THESE  ARE  THE  VARIABLES  THAT  ACSYNT  WILL  MODIFY  TO' / 
fi7X, 'OPTIMIZE  THE  OBJECTIVE):  ',$) 

READ(5,410,ERR-430)  NDV 

IF( (NDV,GT.99) .OR. (NDV.LT.l))  GOTO  430 

DO  500  I-1,NDV 


450 

WRITE (6, 455)  I 

455 

FORMAT (//7X, 'ENTER  THE  GLOBAL  NUMBER  FOR  DESIGN'/ 

$ 

7X, 'VARIABLE  NUMBER', 13,' :  ',$) 

READ(5,410,ERR-450)  AIDSGN(I) 

IF(  (AIDSGNd)  .LT.l)  .OR.  (AIDSGN(I)  .GT.999)  )  GOTO  450 

460 

WRITE (6, 465) 

465 

FORMAT (/7X, 'ENTER  THE  UPPER  BOUND  ON  THIS  VARIABLE: 
READ(5,490,ERR-460)  VUB{I) 

'r$) 

490 

FORMAT (FIO. 2) 

491 

WRITE (6, 492) 

492 

FORMAT (7X, 'ENTER  THE  LOWER  BOUND  ON  THIS  VARIABLE;  ' 

,$) 
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READ(5,490,ERR-491)  VLB (I) 

TX (1) -0 . 5* (ABS {VUB (I) +VLB (1) ) ) 

500  CONTINUE 

510  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 515) 

515  FORMAT (/7X, 'ENTER  THE  TOTAL  NUMBER  OF  VARIABLES  THAT'/ 

&7X,'ARE  CONSTRAINED:  ' ,$) 

READ(5,410,ERR-510)  NCONS 
DO  600  I-l, NCONS 

552  STATUS  -  LIB$SPAWN (' CLS' ) 

WRITE (6, 553)  I 

553  FORMAT (//7X, 'ENTER  THE  GLOBAL  NUMBER  FOR  CONSTRAINT'/ 

&  7X, 'VARIABLE ',13,' :  ',$) 

READ(5,410,ERR-552)  ICON<I) 

556  WRITE (6, 557) 

557  FORMAT (/7X,' ENTER  THE  UPPER  BOUND  ON  THIS  CONSTRAINT:  ',$) 
READ(5,560,ERR-556)  BU(I) 

560  FORMAT (FIO. 2) 

564  WRITE (6, 565) 

565  FORMAT (/7X, 'ENTER  THE  LOWER  BOUND  ON  THIS  CONSTRAINT:  ',$) 
READ(5,560,ERR-564)  BL(I) 

600  CONTINUE 

WRITE (7, 610)  NDV,  NDV,  lOBJ,  SGNOPT 
610  FORMAT('SDATA  BLOCK  B' /' 2, ' 13, ' , 0, 0, 0, 2, 0' /' $DATA  BLOCK  C'/'l'/ 
i'SDATA  BLOCK  D' /' 0 . 02, , 0 . 04, 0 • 001' //' $DATA  BLOCK  E'/ 
&i3,',',i3,',',f4.i/'Sdata  block  F') 

DO  630  1-1, NDV 

WRITE (7, 620)  VLB(l),  VUB (I),  TX(I) 

620  FORMAT (FIO. 2,',', FIO. 2,',', FIO. 2) 

630  CONTINUE 

WRITE (7, 640) 

640  FORMAT ('$DATA  BLOCK  G' ) 

DO  650  1-1, NDV 

WRITE (7, 645)  I,  AIDSGN(I) 

645  FORMAT (13, ',',13,',') 

650  CONTINUE 

WRITE (7, 655)  NCONS 
655  FORMAT ('$  DATA  BLOCK  H'/I3) 

IF (NCONS. NE.O)  THEN  !SKIF  DATA  BLOCK  I  IF  NO  CONSTRAINTS 

WRITE (7, 660) 

660  FORMAT ('$  DATA  BLOCK  I') 

DO  670  I-l, NCONS 

WRITE (7, 665)  ICON (I),  BL(1),  BU(I) 

665  FORMAT (13,',, '/FIO. 2,',,', FIO. 2,',') 

670  CONTINUE 
ENDIF 

WRITE (7,  340) 

GOTO  1000 


-  SENSITIVITY  ANALYSIS 

-  NCALC-3,  NDV-0,  N2VAR-0,  NXAPRX-0,  IPNPUT-1,  lPDBG-0 

-  DATA  BLOCKS  A,  B,  P,  Q  AND  V  COMPLETED 


700  REWIND (7) 

WRITE (6, 305) 

READ (5, 310)  TITLE 
WRITE (7, 320)  TITLE 
710  STATUS  -  LIB$SPAWN('CLS') 

WRITE (6, 715) 

715  FORMAT (//7X, 'ENTER  THE  TOTAL  NUMBER  OF  SENSITIVITY'/ 
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&7X, 'OBJECTIVES  (MAX  OF  EIGHT):  ',$) 

READ(5,410,ERR-710)  HSOBJ 
IF ( (NSOBJ.lt. 1) .OR. (NSOBJ.GT. 8) )  GOTO  710 
DO  730  I-l,NSOBJ 
720  STATUS  -  LIB$SPAWN ('CLS' ) 

WRITE (6,  725)  I 

725  FORMAT (//7X, 'ENTER  THE  GLOBAL  NUMBER  FOR  SENSITIVITY'/ 

&  7X, 'OBJECTIVE  NUMBER  ',11,':  ',$) 

READ(5,410,ERR-760)  NSN(I) 

IF( (NSN(I) .LT.l) .OR. (NSN(l) .GT.999) )  GOTO  760 
730  CONTINUE 

734  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 735) 

735  FORMAT (//7X, 'ENTER  THE  TOTAL  NUMBER  OF  SENSITIVITY  VARIABLES' 
&/7X, ' (A  MAXIMUM  OF  EIGHT) :  ',$) 

READ(5,410,ERR-734)  NSV 

WRITE (7, 740)  NSV,  NSOBJ,  (NSN (I) , I-l, NSOBJ) 

740  FORMAT('$  DATA  BLOCK  B' /' 3, 0, ' , 13, ' , 0, 0, 2, 0' /' $  DATA  BLOCK  P'/ 
&I3,',0'/7(I3,','),I3) 

WRITE (7, 741) 

741  FORMAT ('$  DATA  BLOCK  Q' ) 

DO  790  I-l, NSV 

750  STATUS  -  L1B$SPAWN (' CLS' ) 

WRITE (6, 755)  1 

755  FORMAT (//7X, 'ENTER  THE  GLOBAL  NUMBER  FOR  SENSITIVITY'/ 

&  7X, 'VARIABLE  NUMBER  ',11,':  ',$) 

REAO(5,410,ERR-750)  ISENS 
760  WRITE (6, 765) 

765  FORMAT (/7X, 'ENTER  THE  UPPER  BOUND  ON  THIS  VARIABLE:  ',$) 
READ(5,490,ERR-760)  UPPER 
770  WRITE (6, 775) 

775  FORMAT (7X, 'ENTER  THE  LOWER  BOUND  ON  THIS  VARIABLE:  ',$) 
READ(5,490,ERR-770)  LOWER 

-  THIS  NEXT  PART  WILL  SCALE  THE  SENSITIVITY  VARIABLE  BETWEEN 

—  LOWER  AND  UPPER  WITH  7  VALUES  TOTAL.  THESE  7  VALUES  WILL 

-  BE  USED  FOR  THE  SENSITIVITY  STUDY 

DIFF-ABS (UPPER-LOWER) /6 . 0 
SNS (1) -LOWER 
DO  780  J-2,7 

SNS  ( J)  -LOWER-«-DIFF 
LOWER-LOWER+DIFF 
780  CONTINUE 
NSENS-7 

WRITE (7, 785)  ISENS,  NSENS,  (SNS (K) , K-1, 7) 

785  FORMAT (13,',', 13/6 (F10.2, ',') ,F10.2) 

790  CONTINUE 

WRITE (7, 340) 


-  ACSYNT  CONTROL  SECTION 

-  LINES  1,  2,  3,  4,  5  AND  6  COMPLETED 


1000  STATUS  -  LIB$SPAWN('CLS') 

WRITE (6, 1010) 

1010  FORMAT (// 

&7X, 'ENTER  THE  AIRCRAFT  TYPE  THAT  MOST  CLOSELY  RESEMBLES  YOUR' 
<;/7X, 'DESIGN.' //7X,  '  (1)  FIGHTER' /7X,  '  (2)  TRANSPORT'/ 

&7X,'(3)  BOMBER' //7X, 'SELECT  1,  2  OR  3:  ',$) 

READ (5, 20)  ANS 

IF((ANS.NE.'l') .AND. (ANS.NE.'2') .AND. (ANS.NE.'3'))  GOTO  1000 
IF (ANS.EQ.' 1' )  THEN 
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WRITE (7, 1020) 

1020  FORMAT FIGHTER' ) 

ATYPE-' FIGHTER'  !  ATYPE  IS  PASSED  TO  WEIGHTS  MODULE 
ENDIF 

IF(ANS.EQ.'2')  THEN 
WRITE (7, 1030) 

1030  FORMAT ('TRANSPORT' ) 

ATYPE-' TRANSPORT' 

ENDIF 

IF(ANS.EQ.'3')  THEN 
WRITE (7, 1040) 

1040  FORMAT  ('  BOMBER' ) 

ATYPE-' BOMBER' 

ENDIF 

C  -  READ  THE  OLD  VALUES  IF  DVFLAG . NE . . TRUE . ,  THEN  RESET  THE  ACS  FILE 

C  -  POINTER  TO  THE  TOP  OF  THE  ACSYNT  CONTROL  SECTION 

IF(0VFLA6.EQ. .TRUE.)  THEN  ! SET  CONTROL  DEFAULTS 

MREAD-S 
MEXEC-3 
MWRITE-S 
IOBJ-570 

JOBJ-585  !  WILL  ALWAYS  CONVERGE 

IPSUM-1  !  ALWAYS  PRINT  SUtAlARY 

KGLOBP-0 
INIT-0 
IPDBG-2 
IGPLT-1 
IRDDTR-7 
IPDTR-0 
TOL-.OOOl 
TSLOPE-.75 
NGMAX-50000 . 0 
NREAD(1)-1 
NREAD(2)-2 
NREAD(3)-3 
NREAD(4)-4 
NREAD(5)-6 
NEXEC(1)-1 
NBXEC(2)-2 
NEXEC(3)-6 
NWRITE(1)-1 
NWRITE(2)-2 
NNRITE(3)-3 
NWRITE(4)-4 
NWRITB(5)-6 
GOTO  2000 
ENDIF 
REWIND (10) 

C  -  GET  THE  OLD  DATA  FROM  THE  TEMP  FILE 

1045  READ (10, 210)  ANS  !  FIND  TOP  OF  ACSYNT  CONTROL  SECTION 

IF((ANS.NE.'FIG') .AND.  (ANS .NE. ' TRA' ) .AND.  ( ANS . NE , ' BOM' ) ) 

&GOTO  1045 

READ (10, 1060)  MREAD,  MEXEC,  MWRITE,  lOBJ,  JOBJ,  IPSUM,  KGLOBP, 
&IN1T,  IPDBG,  IGPLT,  IRDDTR,  IPDTR 
1060  FORMAT (1215) 

READ  (10,  1070)  WOIAX 
1070  FORMAT (20X,F10. 2) 

READ (10, 1080)  (NREAD(I) ,I-l,MREAO) 

1080  FORMAT (1615) 

READ (10, 1080)  (NEXEC(I) ,I-1,MEXEC) 
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READ (10, 1080)  (NWRITE(I) ,I-1,MWRITE) 

C  -  GET  THE  NEW  ACSYNT  CONTROL  DATA  OR  KEEP  THE  OLD 


c 

— 

(1) 

GEOMETRY 

c 

— 

(2) 

TRAJECTORY 

c 

— 

(3) 

AERODYNAMICS 

c 

— 

(4) 

PROPULSION 

c 

— 

(5) 

STABILITY  &  CONTROL  (NOT  AVAILABLE  YET) 

c 

— 

(6) 

WEIGHTS 

c 

— 

(10) 

NAVY 

c 

— 

(11) 

SUMMARY  (ALWAYS  SELECTED) 

c 

- — 

(14) 

TAKEOFF  (NOT  AVAILABLE  YET) 

c 

— 

MODULES  1,  2,  3,  4  &  6  WILL  BE  REQUIRED 

2000  DO  2020  1=1,10  IFIND  OUT  IF  MODULES  5,  14  OR  10  ARE  CALLED 
IF (NREAD (I) .EQ.5)  STFLAG- . TRUE . 

IF (NREAD ( I ) . EQ . 14 )  TOFLAG- . TRUE . 

IF (NREAD (I) .EQ. 10)  NVFLAG- . TRUE . 

2020  CONTINUE 

2030  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6,2040) 

2040  FORMAT (/ 

&7X, 'THE  FOLLOWING  MODULES  ARE  SELECTED  FOR  ANALYSIS:'//) 


WRITE (6, 2050) 

2050  FORMAT  (7X,  '  (1)  GEOMETRY . YES') 

WRITE (6, 2060) 

2060  FORMAT  (7X,'  (2)  TRAJECTORY . YES') 

WRITE (6, 2070) 

2070  FORMAT  (7X,'  (3)  AERODYNAMICS . YES') 

WRITE (6, 2080) 

2080  FORMAT  (7X,  '  (4)  PROPULSION . YES') 


C  -  STABILITY  AND  TAKEOFF  COMMENTED  OUT  UNTIL  READY 

C  IF ( STFLAG. EQ. .TRUE.)  THEN 

C  WRITE (6, 2090) 

C2090  FORMAT(7X, ' (5)  STABILITY  &  CONTROL. .. .YES' ) 

C  ELSE 

C  WRITE (6, 2100) 

C2100  FORMAT (7X, ' (5)  STABILITY  &  CONTROL. . . .NO' ) 


C  ENDIF 

WRITE (6, 2110) 

2110  FORMAT  (7X,  '  (6)  WEIGHTS . YES') 

IF (NVFLAG. EQ. .TRUE.)  THEN 
WRITE (6, 2115) 

2115  FORMAT  (7X,  '  (10)  NAVY . YES') 

ELSE 

WRITE (6, 2116) 

2116  FORMAT  (7X,  '  (10)  NAVY . NO') 

ENDIF 

C  IF ( TOFLAG . EQ . . TRUE . )  THEN 

C  WRITE (6, 2120) 

C2120  FORMAT(7X,  '  (14)  TAKE-OFF . YES') 

C  ELSE 

C  WRITE (6, 2130) 

C2130  FORMAT(7X,  '  (14)  TAKE-OFF . : . NO') 

C  ENDIF 

WRITE (6, 2140) 


2140  FORMAT (//7X, 'ENTER  THE  MODULE  NUMBER  TO  CHANGE  THE  STATUS  OR' 
&/7X, 'ENTER  0  TO  CONTINUE;  ',$) 

READ (5, 2145)  ANS 
2145  FORMAT (A2) 

C  IF (ANS. EQ. '5')  THEN 

C  IF (STFLAG. EQ. .TRUE. )  THEN 
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oooooooooooooooo 


STFIAG- . FALSE . 

GOTO  2030 
ELSE 

STFLAG-.TRUE. 

GOTO  2030 
ENDZF 
ENDIF 

IF(ANS.EQ.'14')  THEN 

IF (TOFLAG . EQ . . TRUE . )  THEN 
TOFLAG*. FALSE. 

GOTO  2030 
ELSE 

TOFLAG-. TRUE. 

GOTO  2030 
ENDIF 
ENDIF 

IF(ANS.EQ.'10' )  THEN 

IF(NVTLAG.EQ. .TRUE.)  THEN 
NVFLAG-. FALSE. 

GOTO  2030 
ELSE 

NVFLAG-.TRUE. 

GOTO  2030 
ENDIF 
ENDIF 

IF(ANS.NB.'O')  GOTO  2030 

C  -  RESET  NREAD  ARRAY 

DO  2150  1-1,10 
NREAD (I) -0 
2150  CONTINUE 

NREAD (1)-1 
NR£AD<2)-2 
NREAD (3) -3 
NR£AD(4)-4 
NREAD (5) -6 
1-6 

IF (STFLAG . EQ . . TRUE . )  THEN 
NREAD  (I) -5 
I-I+l 
ENDIF 

IF (NVFLAG . EQ . . TRUE . )  THEN 
NREAD (I) -10 
I-I+l 
ENDIF 

IF (TOFLAG . EQ . . TRUE . )  THEN 
NREAD(I)-14 
ENDIF 
MREAD-0 
DO  2160  1-1,10 

IF(NREAO(I) .NE.O)  MRBAD-MREAD+1 
2160  CONTINUE 

MKRITE-MREAD 

C  -  RESET  NEXEC  ARRAY 

DO  2165  1-1,10 
NEXEC (I) -0 
2165  CONTINUE 

NEXEC (1)-1 
NEXEC  (2) -2 
NEXEC (3) -6 
1-4 
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IF ( STFLAG , EQ . . TRUE . )  THEN 
NEXEC(I)— 5 
I-I+l 
END  IF 

IF (NVFLAG . EQ , . TRUE . )  THEN 
NEXEC(I)— 10 
I-I+l 
ENDIF 

IF (TOFIAG . EQ . . TRUE . )  THEN 
NEXEC<I)— 14 
ENDIF 
MEXEC-0 
DO  2167  1-1,10 

IF(NEXEC(I)  .NE.O)  MEXEC^4EXEC-t-l 
2167  CONTINUE 

WRITE (7, 1060)  MREAD,  MEXEC,  MWRITE,  lOBJ,  JOBJ,  IPSUM,  KGLOBP, 
&INIT,  IPDBG,  IGPLT,  IRDDTR,  IPDTR 
2170  STATUS  -  LIBSSPAWN (' CLS' ) 

WRITE (6, 2180)  WGMAX 
2180  FORMAT (// 

&7X, 'THE  MAXIMUM  ALLOWABLE  TAKE-OFF  GROSS  WEIGHT  IS  SET'/ 
fi7X,'AT  ',F10.2,'  LBS.'// 

&'  (1)  CHANGE  WEIGHT'/ 

fi'  (2)  NO  CHANGE' //7X, 'SELECT  1  OR  2 :  ',$) 

READ (5, 20)  ANS 

IF( (ANS.NE.'l') .AND. (ANS.NE.'2') )  GOTO  2170 
IF<ANS.EQ.'l' )  THEN 


2185 

WRITE (6,2190) 

2190 

FORMAT (/7X, 'ENTER  THE  MAXIMUM  TAKE-OFF  GROSS  WEIGHT 

(THIS' / 

« 

7X, 'WEIGHT  IS  THE  MAXIMUM  THAT  ACSYNT  WILL  CONSIDER 

IF'/ 

£ 

7X, 'CONVERGENCE  IS  NOT  POSSIBLE:  ',$) 
READ(5,2200,ERR-2185)  WOIAX 

2200 

FORMAT (FIO. 2) 

IF(  (WOlAX.LT.l)  .OR.  (W(»1AX. GT. 1000000. 0) )  THEN 

WRITE (6, 2205) 

2205 

FORMAT (/7X, '*  CAUTION;  THIS  VALUE  IS  OUTSIDE  NORMAL 
ENDIF 

GOTO  2170 

LIMITS') 

ENDIF 

WRITE  (7, 1070)  WaiAX 

WRITE (7, 1080)  (NREAD(I),I-1,MREAD) 

WRITE (7, 1080)  (NEXEC(I) ,I-1,MEXEC) 

WRITE  <7, 1080)  (NREADd)  ,I-1,MREAD)  !  OUTPUT  IS  SAME  AS  INPUT 

C - 

CALL  GEOMETRY (DVFLAG) 

C - 

CALL  TRAJ (DVFLAG) 

C - 

CALL  AERO (DVFLAG, NVFLAG) 

C - 

CALL  PROP (DVFLAG) 

C - •= - 

CALL  WEIGHTS  (DVFLAG,  ATYPE) 


IF (STFLAG . EQ . . TRUE . )  THEN 
CALL  STABILITY (DVFLAG) 
ENDIF 


IF (NVFLAG. EQ. .TRUE.)  THEN 
CALL  NAVY 
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ENDIF 


IF (TOFLAG . EQ . . TRUE . )  THEN 
CALL  TAKEOFF (DVFLAG) 

ENDIF 

8400  CLOSE (7) 

CLOSE (10) 

STOP 

END 

c  <><><><><><><><><><><><><><><><><><><><><><x><><><><><x><><><> 

INTEGER  FUNCTION  GETLEN (STRING) 

-  THIS  FUNCTION  WILL  COUNT  THE  NUMBER  OF  RIGHT  BLANKS  IN  "STRING" 

<XXXXXXXXXXXXX>*'XXXXXXXXXXXXXXXXX> 
CHARACTER" 6  STRING 
DO  10  1-6, 1,-1 

IF (STRING (I: I) .NE.'  ')  THEN 
GETLEN-I 
RETURN 
ENDIF 

10  CONTINUE 
RETURN 
END 


SUBROUTINE  NAVY 

C  -  ALL  CALCULATIONS  SET  AT  DEFAULTS:  TROPICAL  DAY 

WRITE (7, 10) 

10  FORMAT ('  $BOAT  SEND') 

RETURN 

END 


SUBROUTINE  GEOMETRY (DVFLAG) 

-  GEOMETRY  SECTION 

CHARACTER  WING"3,  QWING"3,  STRAKE"3,  HTA1L*3,  VTAIL"3,  ANS"6, 
fiCAKARD"3,  WPOD"3,  FPOD*3,  FUS"3,  CREW*3,  FUEL"3,  T1TLE"80 
REAL  LFLAPC,  LENGTH,  LRADAR 

INTEGER  STATUS,  OUTCOD,  SYMCOD,  LIB$SPAWN,  PODNUM,  WPODFL,  FPODFL 
LOGICAL  DVFLAG,  SIZIT,  TAND 

C  -  THE  VARIABLES  BELOW  USED  ON  GEOMETRY  SELECTION  MENU 

IF (DVFLAG . EQ . . TRUE . )  THEN 

WING-' YES'  !  WING  -OR-  QWING  REQUIRED 

QWING-' NO' 

STRAKE-' NO' 

HTA1L-' NO' 

VTAIL-'NO' 

CANARD-' NO' 

WPOD-'YES'  !  WPOD  -OR-  FPOD  REQUIRED 
FPOD-' NO' 

FUS-'YES' 

CREW-' NO' 

FUEL-' NO' 

ENDIF 

IF (DVFLAG. EQ. .TRUE.)  GOTO  50  !  OPTION  TO  BYPASS  GEOMETRY 

10  STATUS  -  L1B$SPAWN('CLS' ) 

WRITE (6, 20) 

20  FORMAT (/// 

S7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  GEC^IETRY  MODULE  ?'// 
47X,'(1)  YES'/7X,'(2)  NO' //7X, ' SELECT  1  OR  2:  ',$) 
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c 


c 

c 


c 

c 

c 


21 


25 

26 


30 

31 


40 


42 


READ(5,21,ERR-10)  NDM 
FORMAT (II) 

IF( (NOM.NE.l) .AND. (iroM.NE.2) )  GOTO  10 
IF(NUM.EQ.l)  GOTO  40 

TRANSFER  GEOMETRY  DATA  FROM  (10)  TO  (7) 
REWIND (10) 

READ (10, 26)  ANS 
FORMAT (A6) 

ir(ANS.NE.'***  GE')  GOTO  25 
WRITE (7, 201) 

READ (10, 31)  TITLE 
FORMAT (A80) 

WRITE (7, 31)  TITLE 

IF(TITLE(1:6) .NE. '$$$$$$')  GOTO  30 
RETURN 

DETERMINE  OLD  GEOMETRY  MENU 
REWIND  (10) 

MAKE  INITIAL  SETTINGS 
WING-' NO' 

OWING-' NO' 

STRAKE-' NO' 

HTAIL-' NO' 

VTAIL-' NO' 


CANARD-' NO' 


WPOD-' NO' 

FPOD-' NO' 
FUS-'YES' 

CREW-' NO' 

FUEL-' NO' 

READ ( 1 0 , 2 6 , END-5 0 ) 
IF (ANS.EQ. '$$$$$$') 
IF(ANS.EQ.'  $WING') 
IF(ANS.EQ.'  SQWIN') 
ir(ANS.EQ.'  $STRA') 
IF(ANS.EQ.'  $HTAI') 
1F(ANS.EQ.'  $VTAI') 
IF(ANS.EQ.'  SCANA') 
IF(ANS.EQ.'  $WPOD') 
IF(ANS.EQ.'  SFPOD') 
IF(ANS.EQ.'  $FUS  ') 
IF(ANS.EQ.'  SCREW') 
IF(ANS.EQ.'  SFUEL') 
GOTO  42 


ANS 

GOTO  50 
WING-' YES' 
OWING-' YES' 
STRAKE-'  YES' 
HTAIL-'YES' 
VTAIL-'YES' 
CANARD-' YES' 
WPOD-'YES' 
FPOD-'YES' 
FUS-'YES' 
CREW-' YES' 
FUEL-' YES' 


-  GEOMETRY  SELECTION  MENU 


50  STATUS  -  LIB$SPAWN('CLS' ) 

60  WRITE  (6, 61)  WING,  OWING,  STRAKE,  HTAIL,  VTAIL,  CKSMH),  WPOD, 


iFPOD,  FUS,  CREW,  FUEL 
61  FORMAT (/ 

&7X, '**  GE<»IETRY  SELECTION  MENU  **'// 

47X,  '  (1)  SYMMETRIC  WING . . . '  ,  A3/ 

fi7X,'(2)  OBLIOUE  WING . ',A3/ 

fi7X,  '  (3)  LE  OR  TE  STRAKES . ',A3/ 

i7X,'(4)  HORIZONTAL  TAIL . ',A3/ 

fi7X,'(5)  VERTICAL  TAIL . ',A3/ 

&7X,'(6)  CANARD . ',A3/ 

S7X,  '  (7)  WING  MOUNTED  ENGINE  PODS . ',A3/ 

&7X,  '  (8)  FUSELAGE  MOUNTED  ENGINE  PODS . ',A3/ 

47X, '(9)  FUSELAGE  (REOUIRED) . ',A3/ 
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S7X, ' (10)  CREW  COCKPIT . 

&7X,  Mil)  FUSELAGE  FUEL  BAYS. 
i7X, ' SELECT  AN  ITEM  TO  CHANGE 
READ(5,65,BRR-50)  NUM 

65  FORMAT (12) 

IF(NUM.EQ.O)  GOTO  200 
GOTO  (80,  90,  100,  110,  120, 
GOTO  50 

80  IF (MING. EQ. 'YES' )  THEN 
WING-' NO' 

OWING-' YES' 

ELSE 

WING-' YES' 

OWING-' NO' 

ENDIF 
GOTO  50 

90  IF (OWING. EO.' YES')  THEN 
OWING-' NO' 

WING-' YES' 

ELSE 

OWING-' YES' 

WING-' NO' 

ENDIF 
GOTO  50 

100  if(strakb.eo.'tes')  then 

STRAKE-' NO' 


. ',A3/ 

. ',A3// 

OR  0  TO  CONTINUE :  ' , 


130,  140,  150,  160, 


$) 


170, 


ELSE 

STRAKE-'YES' 

ENDIF 
GOTO  50 

110  if(htail.eo.mes')  then 

HTAIL-'NO' 

ELSE 

HTAIL-'YES' 

ENDIF 
GOTO  50 

120  IF(VTAIL.EO.''3fES')  THEN 
VTAIL-' NO' 


ELSE 

VTAIL-'YBS' 

ENDIF 
GOTO  50 

130  IF (CANARD. EQ.' YES')  THEN 
CANARD-' NO' 

ELSE 

CANARD-' YES' 

ENDIF 
GOTO  50 

140  IF(MPOD.EQ-'YES')  THEN 
MPOD-' NO' 

FPOD-'YES' 

ELSE 

WPOD-'YES' 

FPOD-' NO' 

ENDIF 
GOTO  50 

150  IF(FPOD.EQ.'YES')  THEN 
FPOD-' NO' 

WPOD-'YES' 

ELSE 


180), 


NUM 
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FPOD-'YES' 

WPOD-' NO' 

BNDIF 
GOTO  50 

160  IF(FUS.EQ.'YES')  THEN 
FUS-' YES' 

ELSE 

FOS-'YES' 

ENDZF 
GOTO  50 

170  IF (CREW. EQ. 'YES')  THEN 
CREW-' NO' 

ELSE 

CREW-' YES' 

ENDIF 
GOTO  50 

180  IF(FOTL.EQ.'YES')  THEN 
FUEL-' NO' 

ELSE 

FUEL-' YES' 

ENDIF 
GOTO  50 

200  WRITE (7, 201)  ! WRITE  THE  GEOMETRY  HEADER  TO  UNIT  7 

201  FORMAT ('***  GECftlETRY  DATA  ***') 

C  -  THE  SWING  AND  SOWING  DEFAULTS  ARE  QUITE  SIMILAR  SO  ONLY  THE  SWING 

C  -  DEFAULTS  WILL  BE  SET,  SINCE  THESE  ALSO  COVER  THE  SOWING  VALUES 

IF (DVFLAG . EQ . . TRUE . )  THEN 

CALL  WINGDV (AR, AREA, DIKED, FDENW6, LFLAPC, SWEEP , SWFACT, TAPER, 

&  TCROOT, TCTIP , TFLAPC, WFFRAC, XWING, ZROOT, KSWEEP , OUTCOD ) 

GOTO  2400 
ENDIF 

C  -  get  old  values.  CHECK  TO  SEE  IF  THE  OLD  VALUES  ACTUALLY  EXIST 

IF (WING. EQ.' YES')  THEN  !  GET  SWING  VALUES 
REWIND (10) 

220  READ (10,26)  ANS 

1F(ANS.EQ.'SS$$$$')  THEN  !OLD  SWING  NOT  FOUND.  SET  DEFAULTS 
CALL  WINGDV (AR, AREA, DIKED, FDENWG, LFLAPC, SWEEP, SWFACT, TAPER, 

&  TCROOT, TCTIP, TFLAPC, WFFRAC, XWING, ZROOT, KSWEEP, OUTCOD) 

GOTO  2400 
ENDIF 

IF(ANS.NE.'  SWING')  GOTO  220 

READ (10, 2340)  AR,  AREA,  DIKED,  FDENWG,  LFLAPC, SWEEP,  SWFACT, 

&  TAPER,  TCROOT,  TCTIP,  TFLAPC,  WFFRAC,  XWING,  ZROOT,  KSWEEP, 

&  OUTCOD 

2340  FORMAT(8X,F5.2,12X,F7.2, 9X, F5 . 2/12X, F6 . 2, 9X, F4 . 2, lOX, F6 . 2 

&  /12X,F4.2,10X,F4,2,12X,F4.2/11X,F4.2,12X,F4.2,11X,F4.2 

&  /11X,F4.2,11X,F5.2,11X, I1/12X,I1) 

ELSE  !  GET  SQWING  VALUES 
REWIND (10) 

2350  READ (10, 26)  ANS 

IF(ANS.EQ.'SSSSS$')  THEN  !  OLD  SQWING  NOT  FOUND.  SET  DEFAULTS 
CALL  WINGDV (AR, AREA, DIKED, FDENWG, LFLAPC,  SWEEP , SWFACT, TAPER, 

&  TCROOT, TCTIP , TFLAPC, WFFRAC, XWING, ZROOT, KSWEEP , OUTCOD) 

GOTO  2400 
ENDIF 

IF(ANS.NE.'  SQWIN')  GOTO  2350 

READ (10, 2360)  AR,  AREA,  DIKED,  LFLAPC,  SWFACT,  TAPER,  TCROOT, 

&  TCTIP,  TFLAPC,  XWING,  ZROOT,  WFFRAC,  FDENWG,  OUTCOD 

2360  FOBMAT(8X,F5.2,12X,F7.2,9X,F5.2/12X,F4.2,11X,F4.2,10X,F4.2/ 

&  12X,F4.2,10X,F4.2,12X,F4.2/11X,F4.2,11X,F5.2,11X,F4.2/ 
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non 


&  12X,F6.2,9X, XI) 

ENDIF 

2400  IF (WING. EQ. 'YES' )  THEN  !  SWING  GEOMETRY  CHANGE  MENU 


-  SET  OP  SWING  NAMELIST 


STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 2410)  AR,  AREA,  OIHED,  FDENWG,  LFLAPC,  SWEEP,  SWFACT, 
TAPER,  TCROOT,  TCTIP,  TFLAPC,  WFFRAC,  XWING,  2ROOT 
FORMAT (/ 

7X, '**  SYMMETRIC  WING  GEOMETRY  **'// 

7X,'(1)  ASPECT  RATIO . ',F5.2/ 

7X, '(2)  AREA  (SQ  FT> . ',F7,2/ 

7X, '(3)  DIHEDRAL  (DEG) . ',F5.2/ 

7X, '(4)  FUEL  DENSITY  (LB/FT3) . ',F6.2/ 

7X,'(5)  L.E.  FLAP  WIDTH  (%CHORD) . ',F4.2/ 

7X,'(6)  L.E.  SWEEP  (DEG) . ',F6.2/ 

7X,  '  (7)  WETTED  AREA  MULTIPLIER . ',F4.2/ 

7X,'(8)  TAPER  RATIO . ',F4.2/ 

7X,'(9)  T/C  RATIO,  WING  ROOT . ',F4.2/ 


& 

7X,' 

**  s 

& 

7X,' 

(1) 

& 

7X,' 

(2) 

& 

7X,' 

(3) 

& 

7X,' 

(4) 

& 

7X,' 

(5) 

& 

7X,' 

(6) 

& 

7X,' 

(7) 

& 

7X,' 

(8) 

& 

7X,' 

(9) 

& 

7X,' 

(10) 

s 

7X,' 

(11) 

& 

7X,' 

(12) 

& 

7X,' 

& 

7X,' 

(13) 

& 

7X,' 

(14) 

& 

7X,' 

£ 

7X,' 

SELE 

WILL  BE  FILLED  WITH  FUEL . ',F4.2/ 


7X, '  (l.O-TOP,  0 . 0-^ID-MOUNT,  -1 . O-BOTTOM) ' // 

7X, 'SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTINUE;  ',$) 

READ (5,2411,ERR-2405)  NUM 
FORMAT (12) 

IF(NUM.EQ.O)  GOTO  2580 

GOTO  (2425,  2440,  2450,  2465,  2480,  2495,  2500,  2510,  2520, 
2530,  2540,  2550,  2560,  2570)  ,MOM 
GOTO  2405 
WRITE (6, 2430) 

FORMAT (/7X, 'ENTER  THE  ASPECT  RATIO;  ',$) 

R£AD(5,2460,ERR-2425)  AR 

IF ( (AR.LE.0.0) .OR. (AR.GT.12.0) )  GOTO  2425 

GOTO  2405 

WRITE (6,2445) 

FORMAT (/7X, 'ENTER  THE  WING  AREA  (SQ  FT):  ',$) 
READ(5,2446,ERR«2440)  AREA 
FORMAT (F7. 2) 

IF (AREA.LE.O)  GOTO  2440 
GOTO  2405 
WRITE (6,2455) 

FORMAT (/7X, 'ENTER  THE  WING  DIHEDRAL  (DEG):  ',$) 
READ(5,2460,ERR-2450)  DIHED 
FORMAT (F5. 2) 

IF ( (DIHED. LT. -20.0) .OR. (DIHED. GT. 20.0) )  GOTO  2450 
GOTO  2405 
WRITE (6,  2470) 

FORMAT (/7X, 'ENTER  THE  FUEL  DENSITY  (LB/FT3) :  ',$) 
READ(5,2475,ERR-2465)  FDENWG 
FORMAT (F6. 2) 

IF ( (FDENWG. LE. 0.0) )  GOTO  2465 
GOTO  2405 
WRITE (6, 2485) 

FORMAT (/7X, 'ENTER  THE  LEADING  EDGE  FLAP  WIDTH'/ 

7X, 'IN  PERCENT  OF  TOTAL  CHORD:  ',$) 
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READ (5,2490,ERR-2480)  LFLAPC 
2490  FORMAT (r4. 2) 

IF( (LFLAFC.lt. 0.0) .OR. (LFLAPC.GT. 0,5) )  GOTO  2480 
GOTO  2405 

2495  WRITE (6,2496) 

2496  FORMAT (/7X, 'ENTER  THE  LE  WING  SWEEP  (DEG):  ',$) 
READ(5,2475,ERR-2495)  SWEEP 

IF( (SWEEP. LT, -30.0) .OR, (SWEEP. GT. 60.0) )  GOTO  2495 
GOTO  2405 

2500  WRITE (6, 2505) 

2505  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ',$) 

READ (5,2490,ERR-2500)  SWFACT 

IF( (SWFACT.LE.0,0) .OR, (SWFACT.GT.2.0) )  GOTO  2500 
GOTO  2405 

2510  WRITE (6, 2515) 

2515  FORMAT (/7X, 'ENTER  THE  TAPER  RATIO:  ',$) 

READ(5,2490,ERR-2510)  TAPER 

IF ( (TAPER. LT. 0.0) .OR. (TAPER. GT. 1.0) )  GOTO  2510 
GOTO  2405 

2520  WRITE (6, 2525) 

2525  FORMAT (/7X, 'ENTER  THE  THICKLESS  TO  CHORD  RATIO'/ 

&  7X, 'AT  THE  WING  ROOT:  ',$) 

READ (5,2490,ERR-2520)  TCROOT 

ir( (TCROOT.lt. 0.02) .OR. (TCROOT.GT. 0.18) )  GOTO  2520 
GOTO  2405 

2530  WRITE (6,2535) 

2535  FORMAT (/7X, 'ENTER  THE  THICKNESS  TO  CHORD  RATIO'/ 

&  7X,'AT  THE  WING  TIP:  ',$) 

READ(5,2490,ERR-2530)  TCTIP 

IF ( (TCTIP.lt. 0.02) .OR. (TCTIP.GT. 0.18) )  GOTO  2530 
GOTO  2405 

2540  WRITE (6, 2545) 

2545  FORMAT (/7X, 'ENTER  THE  TE  FLAP  WIDTH  AS'/ 

&  7X, 'PERCENT  OF  TOTAL  WING  CHORD:  ',$) 

READ(5,2490,ERR»2540)  TFLAPC 

IF( (TFLAPC.LT.0.0) .OR. (TFLAPC.GT.0.5) )  GOTO  2540 
GOTO  2405 

2550  WRITE (6,2555) 

2555  FORMAT (/7X, 'ENTER  THE  AMOUNT  OF  WING  VOLUME  THAT  WILL'/ 

&  7X, 'BE  FILLED  WITH  FUEL,  AS  PERCENT  OF  WING  VOLUME:  ',$) 

READ(5,2490,ERR-2550)  WFFRAC 

IF( (WFFRAC.GT. 1.0) .OR. (WFFRAC.lt. 0.0) )  GOTO  2550 
GOTO  2405 

2560  WRITE (6,2565) 

2565  FORMAT (/7X, 'ENTER  THE  POSITION  OF  THE  WING  QUARTER  CHORD'/ 

&  7X, 'AS  A  FRACTION  OF  BODY  LENGTH:  ',$) 

READ(5,2490,ERR-2560)  XWING 

IF( (XWING.GT. 1.0) .OR. (XWING.lt. 0.0) )  GOTO  2560 
GOTO  2405 

2570  WRITE (6,2575) 

2575  FORMAT (/7X, 'ENTER  THE  ELEVATION  OF  THE  WING  ON  THE  FUSELAGE'/ 
&  7X, ' ( 1 . 0-TOP ,  0 . 0-MID-MOUNT,  -1 . O-BOTTOM) :  ' , $ ) 

READ(5,2460,ERR-2570)  ZROOT 

IF( (ZROOT.GT. 1.0) .OR. (ZROOT.lt. -1.0) )  GOTO  2570 
GOTO  2405 

2580  WRITE (7, 2600)  AR,  AREA,  DIHED,  FDENWG,  LFLAPC, SWEEP,  SWFACT, 

&  TAPER,  TCROOT,  TCTIP,  TFLAPC,  WFFRAC,  XWING,  ZROOT,  KSWEEP, 

&  OUTCOD 

2600  FORMAT ('  SWING'/ 

6  5X, 'AR-',F5.2,',',6X, 'AREA-',r7.2,',',2X  ' DIHED-' , F5 . 2, 
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,  '  OUTCOP*'  ,  II,  '  ,  ■  /3*,  '  5>E.HP-  ) 

!  $QHING  GECftlETRY  CHANGE  MENU 


-  SET  UP  SQNING  NAMELIST 


2610  STATUS  -  LIBSSPAWN (' CLS' ) 

WRITE (6, 2615)  AR,  AREA,  DIKED,  LFLAPC,  SWFACT,  TAPER,  TCROOT, 
&  TCTIP,  TFLAPC,  XWING,  ZROOT,  WFFRAC,  FDENWG 
2615  FORMAT (/ 

£  7X, '**  OBLIQUE  WING  GEC»1ETRY  **'// 

fi  7X,'’(1)  ASPECT  RATIO . ',F5.2/ 

£  7X, '(2)  AREA  (SQFT) . ',F7.2/ 

£  7X,M3)  DIHEDRAL  (DEG) . ',F5.2/ 

£  7X, '(4)  LE  FLAP  WIDTH  (FRACTION  TOTAL  CHORD) _ ',F4.2/ 

£  7X,M5)  wetted  area  multiplier . ',F4.2/ 

£  7X,'(6)  taper  ratio . ',^4.2/ 

£  7X,'(7)  T/C  ratio,  WING  ROOT . ',FA.2/ 

£  7X,  M8)  T/C  ratio,  wing  TIP . ',F4.2/ 

£  7X, '(9)  TE  flap  WIDTH  (FRACTION  TOTAL  CHORD) _ ',F4.2/ 

£  7X, ' (10)  POSITION  OF  WING  1/4  CHORD,  AS  A  ' / 

£  7X, '  FRACTION  OF  TOTAL  FUSELAGE  LENGTH . ',F4.2/ 

£  7X, '(11)  ELEVATION  OF  WING  ON  THE  FUSELAGE . ',F5.2/ 

£  7X, '  (l.O-TOP,  0 . O-MID-MOUNT,  -1 . O-BOTTOM) ' / 

£  7X, '  (12)  FRACTION  OF  WING  VOLUME  THAT  WILL'/ 

£  7X,  '  BE  FILLED  WITH  FUEL . ',F4.2/ 

£  7X,'(13)  FUEL  DENSITY  (LB/FT3) . ',F6.2// 

£  7X, 'SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTINUE;  ',$) 

READ(5,2411,ERR«2610)  NUM 
IF(NDM.EQ.O)  GOTO  2760 

GOTO  (2629,  2635,  2645,  2655,  2665,  2675,  2685,  2695,  2705, 

£  2715,  2725,  2735,  2745)  ,NUM 

GOTO  2610 

2629  WRITE (6,  2630) 

2630  FORMAT (/7X, 'ENTER  THE  ASPECT  RATIO;  ',$) 

READ(5,2460,ERR-2629)  AR 

IF ( (AR.LE.0.0) .OR. (AR.GT.12.0) )  GOTO  2629 
GOTO  2610 

2635  WRITE (6,  2640) 

2640  FORMAT (/7X, 'ENTER  THE  WING  AREA  (SQ  FT);  ',$) 
REAO(5,2446,ERR-2635)  AREA 
IF (AREA. LE. 0.0)  GOTO  2635 
GOTO  2610 

2645  WRITE (6,  2650) 

2650  FORMAT (/7X, 'ENTER  THE  WING  DIHEDRAL  (DEG);  ',$) 
READ(5,2460,ERR-2645)  DIKED 

IF ( (DIKED. LT. -20.0) .OR. (DIKED. GT. 20.0) )  GOTO  2645 
GOTO  2610 

2655  WRITE (6,2660) 

2660  FORMAT (/7X, 'ENTER  THE  LE  FLAP  WIDTH  AS  A'/ 

£  '  FRACTION  OF  THE  TOTAL  CHORD;  ',$) 

READ(5,2490,ERR-2655)  LFLAPC 

IF( (LFLAPC. LT. 0.0) .OR. (LFLAPC. GT. 0.5) )  GOTO  2655 
GOTO  2610 

2665  WRITE (6,2670) 

2670  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ',$) 
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READ(5,2490,ERR-2665)  SWFACT 

ir( (SWFACT.lt. 0.0) .OR. (SWTACT.GT. 2.0) )  GOTO  2665 
GOTO  2610 

2675  WRITE (6, 2680) 

2680  FORMAT (/7X, 'ENTER  THE  TAPER  RATIO:  ',$) 

REAI)(5,2490,ERR-2675)  TAPER 

IF ( (TAPER. LT. 0.0) .OR. (TAPER. GT. 1.0) )  GOTO  2675 
GOTO  2610 

2685  WRITE (6, 2690) 

2690  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  THE  ROOT:  ',$) 

READ (5,2490,ERR-2685)  TCROOT 

IF( (TCROOT.LE.0.02) .OR. (TCROOT.GT.0.18) )  GOTO  2685 
GOTO  2610 

2695  WRITE (6, 2700) 

2700  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  THE  WING  TIP:  ',$) 
READ(5,2490,ERR-2695)  TCTIP 

IF( (TCTIP.LE. 0.02) .OR. (TCTIP.GT. 0.18) )  GOTO  2695 
GOTO  2610 

2705  WRITE (6, 2710) 

2710  FORMAT (/7X, 'ENTER  THE  TE  FLAP  WIDTH  AS  A  FRACTION'/ 

&  '  OF  TOTAL  CHORD:  ',$) 

READ (5,2490,ERR-2705)  TFLAPC 

IF ( (TFLAPC.lt. 0.0) .OR. (TFLAPC.GT. 0.5) )  GOTO  2705 
GOTO  2610 

2715  WRITE (6, 2720) 

2720  FORMAT (/7X, 'ENTER  THE  POSITION  OF  THE  WING  1/4  CHORD'/ 

S'  AS  A  FRACTION  OF  TOTAL  BODY  LENGTH:  ',$) 

READ(5,2490,ERR-2715)  XWING 

IF ( (XWING.GT. 1.0) .OR. (XWING.lt. 0.0) )  GOTO  2715 
GOTO  2610 

2725  WRITE (6, 2730) 

2730  FORMAT (/7X, 'ENTER  THE  ELEVATION  OF  THE  WING  ON  THE'/ 

S  '  FUSELAGE  ( 1 . O-TOP ,  0 . 0-44ID-MOUNT,  -1 . O-BOTTOM) :  ' , $ ) 

BEAD(5,2460,BRR-2725)  ZROOT 

IF ( (2ROOT.lt. -1.0) .OR. (ZROOT.GT. 1.0) )  GOTO  2725 
GOTO  2610 

2735  WRITE (6, 2740) 

2740  FORMAT (/7X, 'ENTER  THE  FRACTION  OF  THE  WING  VOLUME  THAT'/ 

S  7X, 'WILL  BE  FILLED  WITH  FUEL:  ',$) 

READ(5,2490,ERR-2735)  WFFRAC 

IF( (WFFRAC.GT. 1.0) .OR. (WFFRAC.lt. 0.0) )  GOTO  2735 
GOTO  2610 

2745  WRITE (6,2750) 

2750  FORMAT (/7X, 'ENTER  THE  FUEL  DENSITY  (LB/FT3) :  ',$) 
READ(5,2475,ERR-2745)  FDENWG 
IF ( (FDENWG.lt. 0.0) )  GOTO  2745 
GOTO  2610 

2760  WRITE (7, 2765)  AR,  AREA,  DIHED,  LFLAPC,  SWFACT,  TAPER,  TCROOT, 

S  TCTIP,  TFLAPC,  XWING,  ZROOT,  WFFRAC,  FDENWG,  OUTCOD 
2765  FORMAT ('  $QWING' / 

S  5X,  '  AR-'  ,  F5 . 2,  '  ,  '  ,  6X, ' AREA-' , F7 . 2, ' , ' , 2X, 'DIKED-' , F5 . 2, ' , ' , / 

S  5X, ' LFLAPC-' , F4 . 2, ' , ' , 3X, ' SWFACT-' , F4 . 2, ' , ' , 3X, ' TAPER-' , F4 . 2, 
S  '  ,  ' /5X, ' TCROOT-' , F4 . 2, ' , ' , 3X, ' TCTIP-' , F4 . 2, ' , ' , 4X, ' TFLAPC-' , 

S  F4 . 2, ' , ' /5X, ' XWING-' , F4 . 2, ' , ' , 4X, ' ZROOT-' , F5 . 2, ' , ' , 3X, 

S  'WFFRAC-' , F4 . 2, ' , ' /5X, ' FDENWG-' ,F6 . 2, ' , ' , IX, 'OUTCOD-' , II, ' , ' / 
S  5X, 'SEND') 

GOTO  2800 
ENDIF 


-  STRAKE  GEOMETRY 
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)  IF(STRAKE.EQ.'NO')  GOTO  3000 
IF(DVFLAG.EQ. .TRUE.)  THEN  !  SET  STRAKE  DEFAULTS 
XLEXT-0 . 0 
YSEXT-O . 0 
XLAFT-0.0 
YSAFT-O . 0 
SWFACT-1 . 0 
IFLEX-0 

ELSE  !  GET  THE  OLD  STRAKE  VALUES 

REWIND (10) 

)  READ (10, 26)  ANS 

IF (ANS.EQ. '$$$$$$')  THEN  !  OLD  STRAKE  HOT  FOUND 
XLEXT-O . 0 
YSEXT-O . 0 
XLAFT-0.0 
YSAFT-O . 0 
SWFACT-1 . 0 
IFLEX-0 

ELSE  !  OLD  STRAKE  VALUES  FOUND 

ir(ANS.NE.'  $STRA')  GOTO  2830 

READ (10, 2840)  XLEXT,  YSEXT,  XLAFT,  YSAFT,  SWFACT, 

&  IFLEX 

)  rORMAT(llX,F4.2,llX,F4.2,llX,r4.2/llX,F4.2, 

&  12X,F4.2,10X,I1) 

ENDIF 

ENDIF 

)  STATUS  -  L1B$SPAWN('CLS' ) 

WRITE (6, 2860)  XLEXT,  YSEXT,  XLAFT,  YSAFT,  SWFACT,  IFLEX 
)  FORMAT (/ 

fi7X, STRAKE  GEOMETRY  **'// 

fi7X,' (1)  X  LOCATION  OF  THE  LE  STRAKE  AS  A'/ 

fi7X, '  FRACTION  OF  TOTAL  FUSELAGE  LENGTH . ',F4.2/ 

fi7X, '  (2)  RATIO  OF  THE  LE  STRAKE  SFAN/2  TO  THEV 

«7X,  '  WING  SPAN/2 . ',F4.2/ 

&7X, ' (3)  X  LOCU^TION  OF  THE  TE  STRAKE  AS  A' / 

S7X,'  FRACTION  OF  TOTAL  FUSELAGE  LENGTH . ',F4.2/ 

«7X, ' (4)  RATIO  OF  THE  TB  STRAKE  SPAN/2  TO  THE'/ 

47X,  '  WING  SPAN/2 . ',F4.2/ 

&7X, ' (5)  WETTED  AREA  MULTIPLIER  FOR  BOTH  STRAKES . . . ' ,F4 . 2/ 

47X,  M6)  STRAKE  BHWTNESS  FLAG . ',11/ 

&7X, '  (SHARP  LEADING  EDGE-0)'/ 

&7X,'  (BLUNT  LEADING  BDGB-1)'// 

&7X, 'SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,21,ERR-2850)  NUM 
IF(NUM.EQ.O)  GOTO  2950 

GOTO  (2880,  2890,  2900,  2910,  2920,  2930),  NUM 
GOTO  2850 
)  WRITE (6, 2881) 

L  FORMAT (/7X, 'ENTER  THE  X  LOCATION  OF  THE  LE  STRAKE  AS'/ 

&'  A  FRACTION  OF  TOTAL  FUSELAGE  LENGTH:  ',$) 

READ(5,2490,ERR-2880)  XLEXT 

IF ( (XLEXT. LT. 0.0) .OR. (XLEXT. GT.XWING))  GOTO  2880 
GOTO  2850 
)  WRITE (6,  2891) 

L  FORMAT (/7X, 'ENTER  THE  RATIO  OF  THE  LE  STRAKE  SPAN/2'/ 

S7X, 'TO  THE  MING  SPAN/2:  ',§) 

READ(5,2490,ERR-2890)  YSEXT 

IF ( (YSEXT. GT. 1.0) .OR. (YSEXT.lt. 0.0))  GOTO  2890 
GOTO  2850 
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2900  WRITE (6, 2901) 

2901  FORMAT (/7X, 'ENTER  THE  X  LOCATION  OF  THE  TE  STRAKE  AS'/ 

FRACTION  OF  TOTAL  FUSELAGE  LENGTH;  ',$) 

READ (5,2490,ERR-2900)  XLAFT 

IF ( (XLAFT.lt. XWING) .OR. (XLAFT.GT. 1.0))  GOTO  2900 
GOTO  2850 

2910  WRITE (6,2911) 

2911  FORMAT (/7X, 'ENTER  THE  RATIO  OF  THE  TE  STRAKE  SPAN/2'/ 
fi7X, 'TO  THE  WING  SPAN/2:  ',$) 

READ(5,2490,ERR-2910)  YSAFT 

IF ( (YSAFT.GT. 1.0) .OR. (YSAFT.lt. 0.0) )  GOTO  2910 
GOTO  2850 

2920  WRITE (6, 2921) 

2921  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ',$) 
READ(5,2490,ERR-2920)  SWFACT 

IF ((SWFACT.lt. 0.0) .OR. (SWFACT.GT. 2.0))  GOTO  2920 
GOTO  2850 

2930  WRITE (6, 2931) 

2931  FORMAT (/7X, 'ENTER  THE  STRAKE  BLUNTNESS  FLAG'/ 

&7X,' (SHARP  LE-0,  BLUNT  LE-1) :  ',$) 

READ(5,2940,ERR-2930)  IFLEX 
2940  FORMAT (II) 

IF ( (IFLEX. NE.O) .AND. (IFLEX. NE.l) )  GOTO  2930 
GOTO  2850 

2950  WRITE (7,2951)  XLEXT,  YSEXT,  XLAFT,  YSAFT,  SWFACT,  IFLEX 

2951  FORMAT('  SSTRAKE' /5X, ' XLEXT-' , F4 . 2, ' , ' , 4X, ' YSEXT-' , F4 . 2, 
6' , ' , 4X, ' XLAFT-' , F4 . 2 , ' , ' /5X, ' YSAFT-' , F4 . 2, ' , ' , 4X, 

&' SWFACT-' , F4 . 2, ' , ' , 3X, ' IFLEX-' , II, ' , ' /5X, ' $END' ) 

GOTO  3000 


-  HORIZONTAL  TAIL  GEOMETRY 


3000  IF(HTAIL.EQ.'NO')  GOTO  3200 

IF(DVFLAG.EQ. .TRUE.)  THEN  !  SET  DEFAULTS 

AR-5.0 
AREA-50 . 0 
CVHT-1 . 0 
HTFRAC-0 . 0 
SWEEP-0 . 0 
SWFACT-1 . 0 
TAPER-0.99 
TCROOT-0 . 1 
TCTIP-0.1 
XHTAIL-1 . 0 
ZROOT-0 . 0 
KS WEEP-0 
OUTCOD-2 
SIZIT-. FALSE. 

ELSE 

REWIND (10) 

3010  READ(10,26)  ANS 

IF (ANS.EQ. '$$$$$$')  THEN 
AR-5.0 
AREA-0 . 0 
CVHT-1 . 0 
HTFRAC-0 . 0 
SWEEP-0 . 0 
SWFACT-1 . 0 
TAPER-0.99 
TCROOT-0 . 1 
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TCTIP-0 . 1 
XHTAIl^l . 0 
ZRCXJT-0 . 0 
KSHEEP-0 
OUTCOD-2 
SI21T-r 
ELSE 

ZF(AMS.NE.'  $KTAI')  GOTO  3010 

READ (10, 3020)  AR,  AREA,  CVHT,  HTFRAC,  SHEEP,  SHFACT,  TAPER, 
«  TCROOT,  TCTIP,  XHTAIL,  ZROOT,  KSWEEP,  OUTCOD,  SIZIT 

3020  FORMAT (8X, F5 . 2, 12X, F7 . 2, 8X, F4 . 2/12X, F5 . 3, 9X, F5 . 2, IIX, F4 . 2/ 

&  IIX, F4 . 2, 12X, F4 . 2, lOX, F4 . 2/12X, F4 . 2, lOX, F4 . 2, 12X, 11/ 

£  12X,Z1,13X,L1) 

ENDIF 

ENDZF 

3030  STATUS  -  LIB$SPAHN('CLS' ) 

WRITE (6,3040)  AR,  AREA,  CVHT,  SHEEP,  SHFACT,  TAPER, 


fiTCROOT,  TCTIP,  XHTAIL,  ZROOT,  SIZIT,  HTFRAC 
3040  FORMAT (/ 

S7X, HORIZONTAL  TAIL  GEOMETRY  **'// 

S7X,'(1)  ASPECT  RATIO . ',*'5.2/ 

47X, '(2)  SURFACE  AREA  (SQ  FT) . ',F7.2/ 

fc7X, '(3)  TAIL  VOLUME  COEFFICIENT . ',F4.2/ 

S7X,'(4)  LE  SWEEP  (DEG) . ',F5.2/ 

fi7X,'  (5)  WETTED  AREA  MULTIPLIER . ',F4.2/ 

*7X,'(6)  TAPER  RATIO . ',F4.2/ 

fi7X,  '  (7)  T/C  RATIO  AT  ROOT . ',F4.2/ 

£7X,  '  (8)  T/C  RATIO  AT  TIP . ',F4.2/ 

47X, ' (9)  POSITION  OF  THE  TE  OF  TAIL  ROOT  CHORD  AS'/ 

S7X,  '  A  FRACTION  OF  TOTAL  FUSELAGE  LENGTH . ',F4.2/ 

«7X,'  (10)  ELEVATION  OF  TAIL  ON  FUSELAGE . ',F4.2/ 

*7X, '  (0  -  1.0:  TAIL  WITHIN  FUSELAGE)'/ 

47X, '  (1.0  -  1.99;  TAIL  ABOVE  FUSELAGE)'/ 

S7X,  '  (2.0:  HORIZONTAL  TAIL  ON  TOP  OF  VERTICAL  TAIL)'/ 

£7X,'(11)  SIZING  LOGIC . ',L1/ 

47X,  '  (T  «  TAIL  AREA  RECOCUTED  BY  ACSYNT)  '  / 

47X, '  (F  -  USB  THE  INPUT  TAIL  AREA  ONLY) ' / 

&7X,'(12)  HORIZONTAL  TAIL  SIZING  FRACTION . ',F5.3// 

47X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  QUIT:  ',$) 
READ(5,2411,ERR*3030)  NUM 
IF(NUM,BQ.0)  GOTO  3120 


GOTO  (3050,  3055,  3060,  3065,  3070,  3075,  3080,  3085,  3090, 
£3095,  3100,  3110),  NUM 
GOTO  3030 

3050  WRITE (6, 3051) 

3051  FORMAT (/7X,' ENTER  THE  ASPECT  RATIO:  ',$) 
RXAD(5,2460,ERR-3050)  AR 

IF( (AR.LT.0.0) .OR. (AR.GT.12.0) )  GOTO  3050 
GOTO  3030 

3055  WRITE (6, 3056) 

3056  FORMAT (/7X, 'ENTER  THE  HORIZONTAL  TAIL  AREA  (SQ  FT):  ',$) 
READ(5,2446,ERR-3055)  AREA 

IF (AREA. LT. 0.0)  GOTO  3055 
GOTO  3030 

3060  WRITE (6, 3061) 

3061  FORMAT (/7X, 'ENTER  THE  TAIL  VOLUME  COEFFICIENT:  ',$) 
READ(5,2490,ERR-3060)  CVHT 

IF ( (CVHT. LT. 0.3) .OR. (CVHT. GT. 1.0))  GOTO  3060 
GOTO  3030 
3065  WRITE (6,  3066) 
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3066  FORMAT (/7X, 'ENTER  THE  LEADING  EDGE  TAIL  SWEEP  (DEG);  ',$) 
READ(5,2460,ERR-3065)  SWEEP 

IF( (SWEEP. LT. -9.0) .OR. (SWEEP. GT. 60.0) )  GOTO  3065 
GOTO  3030 

3070  WRITE (6, 3071) 

3071  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ' ,$) 
READ(5,2490,ERR-3070)  SWFACT 

IF( (SWFACT.lt. 0.0) .OR. (SWFACT.GT. 2.0) )  GOTO  3070 
GOTO  3030 

3075  WRITE (6, 3076) 

3076  FORMAT (/7X, 'ENTER  THE  HORIZONTAL  TAIL  TAPER  RATIO:  ',$) 
R£AD(5,2490,ERR-3075)  TAPER 

IF( (TAPER. LT. 0.0) .OR. (TAPER. GT. 1.0) )  GOTO  3075 
GOTO  3030 

3080  WRITE (6, 3081) 

3081  FORMAT (/7X, 'ENTER  THE  THICKNESS/CHORD  RATIO'/ 
fi7X, 'AT  THE  HORIZONTAL  TAIL  ROOT:  ',$) 

READ(5,2490,ERR-3080)  TCROOT 

IF ( (TCROOT.lt. 0.02) .OR. (TCROOT.GT. 0.18) )  GOTO  3080 
GOTO  3030 

3085  WRITE (6, 3086) 

3086  FORMAT (/7X, 'ENTER  THE  THICKNESS/CHORD  RATIO  AT  THE  TAIL  TIP:  ',$) 
READ(5,2490,ERR-3085)  TCTIP 

IF( (TCTIP.lt. 0.02) .OR. (TCTIP.GT. 0.18) )  GOTO  3085 
GOTO  3030 

3090  WRITE (6, 3091) 

3091  FORMAT (/7X, 'ENTER  THE  POSITION  OF  THE  TRAILING  EDGE'/ 

47X, 'OF  THE  HORIZONTAL  TAIL  AS  A  FRACTION  OF  TOTAL'/ 

&7X, 'FUSELAGE  LENGTH:  ',$) 

READ (5,2490,ERR-3090)  XHTAIL 

IF( (XHTAIL.lt. 0.5) .OR. (XHTAIL.GT. 1.0) )  GOTO  3090 
GOTO  3030 

3095  WRITE (6, 3096) 

3096  FORMAT (/7X, 'ENTER  THE  ELEVATION  OF  THE  HORIZONTAL  TAIL'/ 
i7X, '0.0  -  0.99  HAS  THE  TAIL  IN  THE  FUSELAGE'/ 

fi7X, '1.0  -  1.99  HAS  THE  TAIL  ON  THE  VERTICAL  STAB'/ 

S7X, '2.0  HAS  THE  TAIL  ON  TOP  OF  THE  VERTICAL  STAB:  ',$) 
READ(5,2490,ERR-3095)  ZROOT 

IF((ZROOT.LT.O.O) .OR. (2ROOT.GT.2.0))  GOTO  3095 
GOTO  3030 

3100  WRITE (6, 3101) 

3101  FORMAT (/7X, 'ENTER  THE  HORIZONTAL  TAIL  SIZING  LOGIC'/ 
fi7X, 'T  «  ACSYNT  WILL  RESIZE  THE  TAIL'/ 

S7X, 'F  -  THE  INPUT  VALUE  OF  THE  TAIL  SIZE  IS  USED:  ',$) 
READ(5,3105,ERR-3100)  SIZIT 
3105  FORMAT (LI) 

GOTO  3030 
3110  WRITE (6, 3115) 

3115  FORMAT (/7X, 'ENTER  THE  HORIZONTAL  TAIL  SIZING  FRACTION.'/ 

&7X, 'IF  0.0  IS  ENTERED  THE  TAIL  WILL  BE  SIZED  USING  THE'/ 

&7X, 'VOLUME  COEFFICIENT;  ',$) 

READ(5,3117,ERR-3110)  HTFRAC 
3117  FORMAT (F5. 3) 

IF( (HTFRAC. LT. 0.0) .OR. (HTFRAC. GT. 1.0) )  GOTO  3110 
GOTO  3030 

3120  WRITE (7, 3125)  AR,  AREA,  CVHT,  HTFRAC,  SWEEP,  SWFACT,  TAPER, 
&TCROOT,  TCTIP,  XHTAIL,  ZROOT,  KSWEEP,  OUTCOD,  SIZIT 
3125  FORMAT('  $HTAIL'/5X,'AR-',F5.2,',',6X,'AREA-',F7.2,',',2X, 

S' CVHT-' , F4 . 2, ' , ' /5X, ' HTFRAC-' , F5 . 3, ' , ' , 2X, ' SWEEP-' , F5 . 2, ' , ' , 

S3X, ' SWFACT-' , F4 . 2, ' , ' /5X, ' TAPER-' , F4 . 2, ' , ' , 4X,  ' TCROOT-'  ,  F4 . 2, 
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, 3X, 'TCTIP-' ,F4.2, ' , ' /5X, 'XHTAIL-' ,F4 .2, S ' / 3X, ' ZRCX5T-' , 

SF4 . 2, ' , ' , 4X, ' KSWEEP-' , 11, ' , ' /5X, • OUTCOD-' , II, ' , ' 6X, ' SIZIT-' , 
fiLl,',  V5X, '$END') 

GOTO  3200 

C - VERTICAL  TAIL  GEC»ffl:TRY 

C - 

3200  IF(VTAIL.EQ.'MO')  GOTO  3400 

IF(DVFLAG.EQ. .TRUE.)  THEN  !  SET  VTAIL  DEFAULTS 

AR-5.0 
AREA-50 . 0 
CVVT-0.6 
SNEEP-0 . 0 
SWFACT-1 . 0 
TAPER-0.99 
TCROOT-0 . 1 
TCTIP-0.1 
VTFRAC-0 . 0 
VTNO-1.0 
XVTAIL-1 . 0 
YROOT-0.0 
ZROOT-0 . 0 
KSWEEP-0 
OUTCOD-2 
SIZIT-F 

ELSE  !  READ  OLD  VTAIL 

REWIND (10) 

3210  READ(10,26)  ANS 

IF (ANS.EQ. '$$$$$$')  THEN 
AR-S.O 
AREA-0.0 
CVVT-0.08 
SNEEP-0 . 0 
SWFACT-1 . 0 
TAPBR-0.99 
TCROOT-0 . 1 
TCTIP-0 . 1 
VTFRAC-0 . 0 
VTNO-1.0 
XVTAIL-1 . 0 
YROOT-0 . 0 
ZROOT-0 . 0 
KSWEEP-0 
OUTCOD-2 
SIZIT-F 
ELSE 

1F(ANS.NE.'  $VTAI')  GOTO  3210 

READ  (10, 3220)  AR,  AREA,  CWT,  SWEEP,  SWFACT,  TAPER,  TCROOT, 
&  TCTIP,  VTFRAC,  VTNO,  XVTAIL,  YROOT,  ZROOT,  KSWEEP,  OUTCOD, 

&  SIZIT 

3220  FORMAT(8X,F5.2,12X,F7.2,8X,F4.2/11X,F5.2,11X,F4.2,10X,F4.2/ 

6  12X,F4.2,10X,F4.2,12X,F5.3/10X,F3.1,14X,F4.2,10X,F4.2/ 

£  11X,F4.2,12X,I1,14X,I1/11X,L1) 

ENDIF 
END  IF 

3230  STATUS  -  LIBSSPAWN ('CLS' ) 

WRITE  (6, 3240)  AR,  AREA,  CWT,  SWEEP,  SWFACT,  TAPER,  TCROOT, 
£TCTIP,  VTNO,  XVTAIL,  ZROOT,  SIZIT,  VTFRAC 

3240  FORMAT (/ 

fi7X, VERTICAL  TAIL  GEOMETRY  **'// 
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fi7X,'(l)  ASPECT  RATIO . ',F5.2/ 

&7X, '(2)  TAIL  AREA  (SQ  FT) . ',F7.2/ 

fi7X,M3)  TAIL  VOLUME  COEFFICIENT . ',F4.2/ 

fi7X,'(4)  LE  SWEEP  (DEG) . %F5.2/ 

&7X, '(5)  WETTED  AREA  MULTIPLIER . ',F4.2/ 

fi7X,M6)  TAPER  RATIO . ',F4.2/ 

&7X,  '  (7)  T/C  RATIO  AT  ROOT . ',F4.2/ 

S7X,  '  (8)  T/C  RATIO  AT  TIP . ',F4.2/ 

S7X,  '  (9)  NUMBER  OF  VERTICAL  TAILS . ',F3.1/ 

fi7X, ' (10)  X  LOCATION  OF  THE  TE  OF  THE  ROOT  CHORD'/ 

S7X,  '  AS  A  FRACTION  OF  FUSELAGE  LENGTH . ',F4.2/ 

«7X, ' (11)  ELEVATION  OF  THE  ROOT  CHORD  OF  THE  TAIL  AS'/ 

67X,  '  A  FRACTION  OF  THE  FUSELAGE  RADIUS . ',F4.2/ 

&7X, '(12)  SIZING  LOGIC . ',L1/ 

fi7X, '  T  -  ACSYNT  WILL  COMPUTE  TAIL  AREA'/ 

&7X,'  F  -  THE  INPUT  TAIL  AREA  WILL  BE  USED'/ 

fi7X,'(13)  VERTICAL  TAIL  SIZING  FRACTION . ',F5.3// 

fi7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,2411,ERR«3230)  NUM 
IF(NUM.BQ.O)  GOTO  3340 


GOTO  (3250,  3255,  3260,  3265,  3270,  3275,  3280,  3285,  3290, 
43300,  3310,  3320,  3330),  NUM 
GOTO  3230 

3250  WRITE (6,  3251) 

3251  FORMAT (/7X, 'ENTER  THE  ASPECT  RATIO:  ',$) 
READ(5,2460,ERR-3250)  AR 
IF((AR.LT.0.0) .OR. (AR.GT.12.0))  GOTO  3250 
GOTO  3230 

3255  WRITE (6, 3256) 

3256  FORMAT (/7X, 'ENTER  THE  VERTICAL  TAIL  AREA  (SQ  FT):  ',$) 
READ(5,2446,ERR«3255)  AREA 

IF (AREA. LT. 0.0)  GOTO  3255 
GOTO  3230 

3260  WRITE (6, 3261) 

3261  FORMAT (/7X,' ENTER  THE  VERTICAL  TAIL  VOLUME  COEFFICIENT:  ',$) 
READ(5,2490,ERR»3260)  CWT 

IF(  (CWT.LT.O.Ol)  .OR.  (CVVT.GT.0.2))  GOTO  3260 
GOTO  3230 

3265  WRITE (6, 3266) 

3266  FORMAT (/7X, 'ENTER  THE  LE  SWEEP  OF  THE  VERTICAL  TAIL:  ',$) 
READ  (5,2460,ERR><>3265)  SWEEP 

IF((SWEEP. LT. -9.0) .OR. (SWEEP. GT. 60.0))  GOTO  3265 
GOTO  3230 

3270  WRITE (6, 3271) 

3271  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ',$) 
READ(5,2490,ERR-3270)  SWFACT 

IF ( (SWFACT.lt. 0.0) .OR. (SWFACT.GT. 2.0) )  GOTO  3270 
GOTO  3230 

3275  WRITE (6, 3276) 

3276  FORMAT (/7X, 'ENTER  THE  TAPER  RATIO:  ',$) 

READ(5,2490,ERR«3275)  TAPER 

IF ((TAPER.lt. 0.0) .OR. (TAPER. GT. 1.0))  GOTO  3275 
GOTO  3230 

3280  WRITE (6, 3281) 

3281  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  ROOT:  ',$) 
READ(5,2490,ERR«3280)  TCROOT 

IF ( (TCROOT.lt. 0.02) .OR. (TCROOT.GT. 0.18) )  GOTO  3280 
GOTO  3230 

3285  WRITE (6, 3286) 

3286  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  TIP:  ',$) 
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READ(5,2490,ERR-3285)  TCTIP 

ir( (TCTIP.lt. 0.02) .OR. <TCTIP.GT. 0.18) )  GOTO  3285 
GOTO  3230 

3290  WRITE (6, 3291) 

3291  FORMAT (/7X, 'ENTER  THE  NtR4BER  OF  VERTICAL  TAILS'/ 

&7X, '2.0  >  2  SYtMETRICALLY  LOCATED  TAILS'/ 

«7X, '3.0  -  1  TAIL  ON  CENTERLINE  AND  2  SYMMETRICALLY  LOCATED'// 

67X, 'NUMBER  OF  TAILS:  ',$) 

READ(5,3295,ERR-3790)  VTNO 
3295  FORMAT (F3.1) 

IF ( (VTNO. NE. 1.0) .AND. (VTNO. NE. 2.0) .AND. (VTNO. NE. 3.0) )  GOTO  3290 
GOTO  3230 

3300  WRITE (6, 3301) 

3301  FORMAT (/7X,' ENTER  THE  POSITION  OF  THE  TE  OF  THE  TAIL  ROOT  CHORD'/ 
&7X, 'AS  A  FRACTION  OF  FUSELAGE  LENGTH:  ',$) 

READ(5,2490,ERR-3300)  XVTAIL 

IF( (XVTAIL.lt. 0.0) .OR. (XVTAIL.GT. 1.0) )  GOTO  3300 
GOTO  3230 

3310  WRITE (6, 3311) 

3311  FORMAT (/7x, 'ENTER  THE  ELEVATION  OF  THE  ROOT  CHORD  OF'/ 

47X, 'THE  VERTICAL  TAIL  AS  A  FRACTION  OF  THE  MAXIMUM'/ 

«7X, ' FUSELAGE  RADIUS:  ',$) 

READ(5,2490,ERR*3310)  ZROOT 

IF ((ZROOT.lt. -1.0) .OR. (ZROOT.GT. 1.0))  GOTO  3310 
GOTO  3230 

3320  WRITE (6, 3321) 

3321  FORMAT (/7x, 'ENTER  THE  SIZING  LOGIC'/ 

fi7X, 'T  -  ACSYNT  WILL  SIZE  THE  VERTICAL  TAIL'/ 

&7X, 'F  «  THE  INPUT  VALUE  OF  THE  TAIL  AREA  WILL  BE  USED:  ',$) 
R£AD(5,3105,ERR-3320)  SIZIT 
GOTO  3230 
3330  WRITE (6, 3335) 

3335  FORMAT (/7X, 'ENTER  THE  VERTICAL  TAIL  SIZING  FRACTION.'/ 

«7X, 'IF  0.0  IS  ENTERED,  THE  TAIL  WILL  BE  SIZED  USING  THE'/ 

47X, 'VOLUME  COEFFICIENT:  ',$) 

READ(5,3117,ERR-3330)  VTFRAC 

IF ( (VTFRAC.lt. 0.0) .OR. (VTFRAC.GT. 1.0) )  GOTO  3330 
GOTO  3230 

3340  WRITE  (7, 3341)  AR,  AREA,  CWT,  SWEEP,  SWFACT,  TAPER,  TCROOT, 
STCTIP,  VTFRAC,  VTNO,  XVTAIL,  YROOT,  ZROOT,  KSWEEP,  OUTCOD, 

&SIZIT 

3341  FORMAT('  $VTAIL' /5X, ' AR-' , F5 .2, ' , ' , 6X, ' AREA-' , F7 .2, ' , ' , 2X, 

4'  CWT-'  ,  F4 . 2,  '  ,  '  /5X,  '  SWEEP-'  , F5 .2,  '  ,  '  ,  3X,  '  SWFACT-'  ,  F4 . 2,  '  ,  '  , 

53X, ' TAPER-' , F4 . 2, ' , ' /5X, ' TCROOT-' , F4 . 2, ' , ' , 3X, ' TCTIP-' , F4 . 2, 

4' , ' , 4X, ' VTFRAC-' , F5 . 3, ' , ' /5X, ' VTNO-' , F3 . 1, ' , ' , 6X, ' XVTAIL-' , 

4F4 . 2,  '  ,  '  , 3X,  '  YROOT-' , F4 . 2, ' , ' /5X, ' ZROOT-' , F4 . 2, ' , ' , 4X, 

4' KSWBEP-' , II, ' , ' , 6X, 'OUTCOD-' , II, ' , ' /5X, ' SIZIT-' , LI, ' , ' / 

45X, ' SEND' ) 

GOTO  3400 

C  -  CANARD  GEOMETRY 

3400  IF ( CANARD. EQ. 'NO'}  GOTO  3600 

IF(DVFLA6.EQ. .TRUE.)  THEN  !  SET  CANARD  DEFAULTS 
AR-5.0 
AREA-50.0 
CVCAN— .8 
CFRAC-0 . 0 
SWEEP-0 . 0 
SWFACT-1 . 0 
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TAPER-0.99 
TCROOT-0 . 1 
TCTIP-0 . 1 
XCAN-0 . 0 
2ROOT-0 . 0 
NCAN-1 
KSHEEP-0 
OOTCOD-2 
S1ZZT-. FALSE. 

ELSE  !  GET  THE  OLD  VALUES 

REWIND (10) 

3420  READ (10, 26)  ANS 

IF (ANS.EQ. '$$$$$$')  THEN  !  OLD  VALUES  NOT  FOUND 

AR-5.0 
AREA-0.0 
CVCAN— 1 . 0 
CFRAC-0 . 0 
SHEEP-0 . 0 
SWFACT-1 . 0 
TAPER-0.99 
TCROOT-0 . 1 
TCTlP-0.1 
XCAN-0 . 0 
ZROOT-0 . 0 
NCAN-1 
OUTCOD-2 
SIZIT-. FALSE. 

ELSE 

IF(ANS.NE.'  $CANA')  GOTO  3420 

C  -  ICAN  REMOVED. . .NOT  IN  CANARD  NAMELIST 

READ (10, 3430)  AR,  AREA,  CVCAN,  SWEEP,  SWFACT,  TAPER, 

&  TCROOT,  TCTIP,  XCAN,  ZROOT,  NCAN,  KSWEEP, 

&  OUTCOD,  SIZIT,  CFRAC 

3430  FOBMAT(8X,F5.2,12X,F7.2,9X,F5.2/llX,F5.2,llX,P4.2, 

6  lOX, F4 . 2/12X, F4 . 2, lOX, F4 .2, lOX, F4 . 2/llX, F5 . 2, 24X, 

4  Z1/12X,I1,14X,I1,13X,L1/11X,F5.3) 

END  IF 

ENDIF 

3440  STATUS  -  LIB$SPAWN (' CLS' ) 

WRITE (6, 3450)  AR,  AREA,  CVCAN,  SWEEP,  SWFACT,  TAPER,  TCROOT, 


&TCTIP,  XCAN,  ZROOT,  NCAN,  SIZIT,  CFRAC 
3450  FORMAT (/ 

S7X, CANARD  GEOMETRY  **'// 

47X,'(1)  ASPECT  RATIO . ',F5.2/ 

67X,'(2)  area  (SOFT) . ',F7.2/ 

47X, '(3)  CANARD  VOLUME  COEFFICIENT . ',F5.2/ 

&7X,'(4)  SWEEP  (DEG) .  ',F5.2/ 

&7X,M5)  WETTED  REA  MULTIPLIER . ',F4.2/ 

47X,'(6)  taper  ratio . ',F4.2/ 

&7X,  '  (7)  T/C  RATIO  AT  ROOT . •  ,Fk.2l 

S7X,M8)  T/C  ratio  at  TIP . ',FA.2/ 

67X, ' (9)  X  LOCATION  OF  CANARD  LE,  AS  A  FRACTION'/ 

47X,  '  OF  FUSELAGE  LENGTH . ',F4.2/ 

&7X, '(10)  ELEVATION  OF  CANARD  ON  FUSELAGE . ',F5.2/ 

47X, '  (1.0  -  TOP,  -1.0  -  BOTTOM)'/ 

&7X,'(11)  CANARD  LOCATION . ',11/ 

S7X,  '  (1  -  CANARDS  ON  CENTRAL  BODY)'/ 

47X, '  (2  -  CANARDS  OUTBOARD  OF  TWIN  NACELLES)'/ 

47X,'(12)  sizing  logic . ',L1/ 

47X, '  (T  -  CANARD  AREA  RECOMPUTED  BY  ACSYNT) ' / 
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S7X, '  (F  -  CANARD  AREA  FIXED  BY  INPUT  VALUE) V 

fi7X,M13)  CANARD  SIZING  FRACTION . ',F5.3// 

fi7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,2411,ERR-3440)  NUM 
IF(NUM.EQ.O)  GOTO  3530 

GOTO  (3460,  3465,  3470,  3475,  3480,  3485,  3490,  3495,  3500,  3505, 
&3510,  3515,  3520),  NUM 
GOTO  3440 

3460  WRITE (6, 3461) 

3461  FORMAT (/7X,' ENTER  THE  ASPECT  RATIO:  ',$) 

READ(5,2460,ERR-3460)  AR 
IF((AR.LE.0.0) .OR. (AR.GT.12.0))  GOTO  3460 
GOTO  3440 

3465  WRITE (6, 3466) 

3466  FORMAT (/7X, 'ENTER  THE  CANARD  AREA  (SQ  FT).  IF  YOU'/ 

£7X, 'WANT  ACSYNT  TO  SIZE  THE  CANARD  BASED  ON  THE'/ 

47X, 'CANARD  VOLUME  COEFFICIENT,  ENTER  0.0;  ',$) 

READ(5,2446,ERR-3465)  AREA 
IF (AREA. LT. 0.0)  GOTO  3465 
GOTO  3440 

3470  WRITE (6, 3471) 

3471  FORMAT (/7X,' ENTER  THE  C:ANARD  VOLUME  COEFFICIENT'/ 

47X, ' (THIS  SHOULD  BE  A  NEGATIVE  VALUE) :  ',$) 

READ(5,2460,ERR«3470)  CVCAN 

IF( (CVCAN.lt. -1.0) .OR. (CVCAN.GT. 0.0))  GOTO  3470 
GOTO  3440 

3475  WRITE (6, 3476) 

3476  FORMAT (/7X, 'ENTER  THE  LEADING  EDGE  SWEEP  (DEG):  ',$) 
READ(5,2460,ERR-3475)  SWEEP 

IF( (SWEEP. LT. -9.0) .OR. (SWEEP. 6T. 60.0) )  GOTO  3475 
GOTO  3440 

3480  WRITE (6, 3481) 

3481  FORMAT (/7X, 'ENTER  THE  WETTED  AREA  MULTIPLIER:  ',$) 
READ(5,2490,ERR->3480)  SWFACT 

IF((SWFACT.LE.0.0) .OR. (SWFACT.GT.2.0))  GOTO  3480 
GOTO  3440 

3485  WRITE (6, 3486) 

3486  FORMAT (/7X, 'ENTER  THE  TAPER  RATIO:  ',$) 

READ(5,2490,ERR»3485)  TAPER 

IF( (TAPER. LT. 0.0) .OR. (TAPER. GT. 1.0) )  GOTO  3485 
GOTO  3440 

3490  WRITE (6, 3491) 

3491  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  THE  ROOT;  ',$) 
READ(5,2490,ERR-3490)  TCROOT 

IF ( (TCROOT.lt. 0.02) .OR. (TCROOT.GT. 0.18) )  GOTO  3490 
GOTO  3440 

3495  WRITE (6, 3496) 

3496  FORMAT (/7X, 'ENTER  THE  T/C  RATIO  AT  THE  TIP;  ',$) 
READ(5,2490,ERR-3495)  TCTIP 

IF((TCTIP. LT. 0.02) .OR. (TCTIP.GT. 0.18))  GOTO  3495 
GOTO  3440 

3500  WRITE (6, 3501) 

3501  FORMAT (/7X, 'ENTER  THE  X  LOCATION  OF  THE  LEADING  EDGE'/ 

&7X, 'OF  THE  CANARD  AS  A  FRACTION  OF  THE  FUSELAGE'/ 
t7X, 'LENGTH;  ',$) 

READ(5,2490,ERR-3500)  XC:aN 

IF ( (XCAN.lt. 0.0) .OR. (XCAN.GT. 0.5) )  GOTO  3500 
GOTO  3440 

3505  WRITE (6, 3506) 

3506  FORMAT (/7X, 'ENTER  THE  ELEVATION  OF  THE  CANARD  ON  THE'/ 
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fi7X, 'FUSELAGE  (1.0  -  TOP  OF  FUSELAGE,  -1.0  -  BOTTCM' / 

&7X, 'OF  FUSELAGE) :  ' , $) 

READ(5,2460,ERR-3505)  ZROOT 

IF ( (ZROOT.lt. -1.0) .OR. (ZROOT.GT. 1.0) )  GOTO  3505 
GOTO  3440 

3510  WRITE (6, 3511) 

3511  FORMAT (/7X, 'ENTER  THE  CANARD  LOCATION  CODE'/ 
t7X, ' (1  -  CANARD  IS  ON  THE  CENTRAL  BODY)'/ 

fi7X, ' (2  -  CANARD  IS  MOUNTED  OUTBOARD  OF  TWIN  NACELLES) :  ',$) 

READ (5,2940,ERR-3510)  NCAN 

IF( (NCAN.NE.l) .AND. (NCAN.NE.2) )  GOTO  3510 

GOTO  3440 

3515  WRITE (6, 3516) 

3516  FORMAT (/7X, 'ENTER  THE  CANARD  SIZING  LOGIC'/ 
fi7X, ' (T  -  ACSYNT  MAY  RESIZE  THE  CANARD)'/ 

S7X, '  (F  -  THE  INPUT  VALUE  OF  CANARD  SIZE  WILL  BE  USED) :  ',$) 
READ(5,3105,ERR-3515)  SIZIT 
GOTO  3440 
3520  WRITE (6, 3525) 

3525  FORMAT (/7X, 'ENTER  THE  CANARD  SIZING  FRACTION.  IF  0.0'/ 

&7X, 'IS  ENTERED,  THE  CANARD  WILL  BE  SIZED  USING  THE'/ 
fi7X, 'VOLUME  COEFFICIENT;  ',$) 

READ(5,3117,ERR-3520)  CFRAC 

IF ((CFRAC.lt. 0.0) .OR. (CFRAC.GT. 1.0))  GOTO  3520 
GOTO  3440 

3530  WRITE (7, 3531)  AR,  AREA,  CVCAN,  SWEEP,  SWFACT,  TAPER,  TCROOT, 
iTCTIP,  XCAN,  ZROOT,  NCAN,  KSWEEP,  OUTCOD,  SIZIT,  CFRAC 

3531  FORMAT('  SCANARD' /5X, ' AR-' , F5.2, ' , ' , 6X, ' AREA-' , F7 .2, ' , ' , 
fi2X, ' CVCAN-' , F5 . 2 , ' , ' /5X, ' SWEEP-' , F5 . 2, ' , ' , 3X, ' SWFACT-' , 

&F4 . 2,  ' ,  '  , 3X, ' TAPER-' , F4 . 2, ' , ' /5X, ' TCROOT-' , F4 . 2, ' , ' , 3X, 

S' TCTIP-' , F4 . 2, ' , ' , 4X, ' XCAN-' , F4 . 2, ' , ' /5X, ' ZROOT-' , F5 . 2, 

S' , ' , 18X, ' NCAN-' , II, ' , ' /5X, ' KSWEEP-' , II, 

S' , ' , 6X, 'OUTCOD-' , II, ' , ' , 6X, ' SIZIT-' , LI, ' , '  /5X,  '  CFRAC-' , F5 . 3, 
S',',3X, '$END') 

GOTO  3600 

C - 

C  -  WING  POD  GEOMETRY 

C - 

3600  IF(WPOD.EQ.'NO')  GOTO  3700 

3602  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 3603) 

3603  FORMAT (//7X, 'ENTER  THE  NUMBER  OF  WING  PODS.  IF  THE  PODS  ARE'/ 
S7X, '  SYtmETRICALLY  MOUNTED  AROUND  THE  FUSELAGE,  JUST  ENTER'/ 

S7X, 'THE  NUMBER  OF  PODS  ON  ONE  SIDE  OF  THE  AIRCRAFT  AND'/ 

S7X, 'SELECT  THE  WING  POD  SYMMETRY  CODE.  (A  MAXIMUM  TOTAL  OF'/ 

S7X, '10  PODS  MAY  BE  USED'// 

S7X, 'NUMBER  OF  PODS;  ',$) 

READ(5,2411,ERR-3602)  PODNUM 

IF ((PODNUM.GT. 10) .OR. (PODNUM.lt. 1))  GOTO  3602 
DO  3690  I-l, PODNUM 

IF ( (DVFLAG . EQ . . TRUE . ) . OR . (WPODFL . EQ . 1 ) )  THEN  !  SET  DEFAULTS 
DIAM-3 . 0 
LENGTH-10.0 
X-0.0 
Y-0.5 
Z— 1.0 
OUTCOD-2 
SYMCOD-0 
ELSE 

IF(I.EQ.l)  REWIND (10) 
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3610 


3615 

£ 


3620 

3625 


3630 

3631 


3635 

3640 

3641 


3645 

3646 

& 

& 


3650 

3651 


READ (10, 26)  ANS 
ir(ANS.EQ. '$$$$$$')  THEN 

NPODFL-1  !  FLAG  TO  PREVENT  EOF  ERROR 

DIAti^3 . 0 

LENGTH-10 . 0 

X-0.0 

y-0.5 


2—1.0 

ocrrcoD-2 

STMCOD-O 

ELSE 

IF(ANS.NE.'  $WPOD')  GOTO  3610 

READ (10, 3615)  OIAM,  LENGTH,  X,  Y,  2,  OUTCOD,  SYMCOD 
FORMAT (lOX, F6 . 2, IIX, F6 .2, 4X, F5 ,2/7X, F3 . 1, 12X, F5 . 2, 
15X,I1/12X,Z1) 

ENDXF 

ENDZF 

STATUS  -  LZB$SPANN('CLS') 

WRITE (6, 3625)  1,  DZAM,  LENGTH,  X,  Y,  2,  SYMCOD 
FORMAT (/ 


7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 


(2) 

(3) 

(4) 


(5) 


(6) 


**  WING  ENGINE  POD  NUMBER  ',11,'  **'// 

(1)  ENGINE  DIAMETER  (FT) . ',F6.2/ 

ENGINE  LENGTH  (FT) . ',F6.2/ 

X  LOCATION  OF  POD,  RELATIVE  TO  THE  WING  LE, ' / 

AS  A  FRACTION  OF  LOCAL  CHORD . ',F5.2/ 

Y  LOCATION  OF  CENTER  OF  POD  MEASURED  FROM'/ 

FUSELAGE  CENTERLINE,  AS  A  FRACTION  OF  '/ 

WING  SEMI-SPAN . ',F3.1/ 

2  LOCATION  OF  WING  POD,  GIVEN  AS  A  FRACTION'/ 

OF  MAXIMUM  POD  DIAMETER,  RELATIVE  TO  WING . . . ' , F5 . 2/ 

(  <0  IF  POD  IS  BELOW  WING,  >0  IF  ABOVE)'/ 

WING  POD  SYMMETRY . ',11/ 

(0  -  WING  POD  HAS  IMAGE  ON  OPPOSITE  WING) ' / 

(1  -  WING  POD  DOES  NOT  HAVE  AN  IMAGE)'// 

SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,21,ERR-3620)  NUM 
IF  (NUM.E(3.0)  GOTO  3670 

GOTO  (3630,  3640,  3645,  3650,  3660,  3665)  ,NUM 
GOTO  3620 
WRITE (6,3631) 

FORMAT (/7X, 'ENTER  THE  POD  DIAMETER  (FEET):  ',$) 
READ(5,3635,ERR-3630)  DIAM 

ZF((DIAM.LE.0.0) .OR. (DIAM.GT.30.0))  GOTO  3630 
FORMAT (F6. 2) 

GOTO  3620 
WRITE (6,3641) 

FORMAT (/7X,' ENTER  THE  POD  LENGTH  (FEET):  ',$) 
READ(5,3635,ERR-3640)  LENGTH 

IF( (LENGTH. LE. 0.0) .OR. (LENGTH. GT. 40.0) )  GOTO  3640 
GOTO  3620 
WRITE (6,  3646) 

FORMAT (/7X, 'ENTER  THE  X  LOCATION  OF  THE  WING  POD'/ 

7X, 'RELATIVE  TO  THE  LEADING  EDGE  OF  THE  WING'/ 

7X, 'AS  A  FRACTION  OF  THE  LOCAL  CHORD  (POSITIVE'/ 

7X,  BEHIND  THE  LE) ;  ',$) 

READ(5,2460,ERR-3645)  X 

IF( (X.LT.-l.O) .OR. (X.GT.1.0))  GOTO  3645 

GOTO  3620 

WRITE (6,3651) 

FORMAT (/7X, 'ENTER  THE  Y  LOCATION  OF  THE  WING  POD'/ 
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£  7X, 'RELATIVE  TO  THE  FUSELAGE  CENTERLINE  AS  A' / 

£  7X, 'FRACTION  OF  THE  WING  SEMI-SPAN:  ',$) 

REAr>(5,3655,ERR-3650)  Y 
3655  FORMAT (F3,l) 

IF ( (Y.LT.0.0) .OR. (Y.GT.1.0) )  GOTO  3650 
GOTO  3620 

3660  WRITE (6, 3661) 

3661  FORMAT (/7X, 'ENTER  THE  Z  LOCATION  OF  THE  WING  POD'/ 

£  7X, 'RELATIVE  TO  THE  WING,  AS  A  FRACTION  OF  THE'/ 

£  7X, 'MAXIMUM  POD  DIAMETER:  ',$) 

READ(5,2460,ERR-3660}  Z 

IF ( (Z.LT.-2.0) .OR. (Z.GT.2.0) )  GOTO  3660 

GOTO  3620 

3665  WRITE (6, 3666) 

3666  FORMAT (/7X, 'ENTER  THE  WING  POD  SYMMETRY  CODE:'/ 

£  7X,' (0  -  POD  HAS  AN  IMAGE  ON  OPPOSITE  WING)'/ 

£  7X, ' (1  -  POD  DOES  NOT  HAVE  AN  IMAGE)  ',$) 

READ(5,2940,ERR-3665)  SYMCOD 

IF ( (SYMCOD.NE.O) .AND. (SYMCOD.NE.l) )  GOTO  3665 
GOTO  3620 

3670  WRITE (7,3671)  DIAM,  LENGTH,  X,  Y,  Z,  OUTCOD,  SYMCOD 

3671  FORMAT ('  $WPOD' /5X, ' DIAM-' , F6 . 2, ' , ' , 3X, ' LENGTH-' , F6 . 2, ' , ' , 
£  IX,  '  X-'  ,  F5 . 2,  '  ,  '  /5X, '  Y-'  ,  F3 . 1,  '  ,  '  ,  9X,  '  Z-'  ,  F5 . 2,  '  ,  '  , 

£  7X, 'OUTCOD-' , II, ' , ' /5X, ' SYMCOD-' , II, ' , ' /5X, ' SEND' ) 

3690  CONTINUE 


-  FUSELAGE  POD  GEOMETRY 


3700  IF(FPOD.EQ.'NO')  GOTO  3800 

3702  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 3703) 

3703  FORMAT (//7X, 'ENTER  THE  NUMBER  OF  FUSELAGE  PODS.  IF  THE  PODS'/ 

£7X, 'ARE  SYMMETRICALLY  MOUNTED  AROUND  THE  FUSELAGE,  JUST'/ 

£7X, 'ENTER  THE  NUMBER  OF  PODS  ON  ONE  SIDE  OF  THE  AIRCRAFT  AND'/ 
£7X, 'SELECT  THE  POD  SYMMETRY  CODE.  (A  MAXIMUM  TOTAL  OF'/ 

£7X, '10  PODS  MAY  BE  USED'// 

£7X, 'NUMBER  OF  PODS:  ',$) 

READ(5,2411,ERR-3602)  PODNUM 

IF ( (PODNUM.GT. 10) .OR. (PODNUM.lt. 1) )  GOTO  3702 
DO  3790  1-1, PODNUM 

IF ( (DVFLAG.EQ. .TRUE.) .OR. (FPODFL.EQ.l) )  THEN  !  SET  DEFAULTS 
DIAM-3.0 
LENGTH-10.0 
SOD-0 . 1 
THETA-0 . 0 
X-0.8 
OUTCOD-2 
SYMCOD-0 
ELSE 

IF(I.EQ.l)  REWIND(IO) 

3710  READ (10, 26)  ANS 

IF (ANS.EQ. '$$$$$$' )  THEN  !  OLD  SFPOD  NOT  FOUND.  SET  DEFAULTS 

FPODFL-1 

DIAM-3 . 0 

LENGTH-10 . 0 

SOD-0 . 1 

THETA-0 . 0 

X-0.8 

OUTCOD-2 

SYMCOD-0 
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3715 

£ 


3720 

3725 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 


3730 

3731 


3740 

3741 


3745 

3746 

£ 

£ 

£ 


3750 

3751 

£ 

£ 

£ 


3760 

3761 


ELSE 

ir(ANS.NE.'  $FPOD')  GOTO  3710 

READ (10, 3715)  DIAM,  LENGTH,  SOD,  THETA,  X,  OUTCOD,  STMCOD 
FORMAT (lOX, F6 . 2, IIX, F6 .2, 6X, F5 . 2/llX, F5 . 2, 6X, F3 . 1, 17X,  11/ 
12X,I1) 

ENDXF 

ENDIF 

STATUS  -  LIB$SPAWN{'CLS') 

WRITE (6, 3725)  I,  DIAM,  LENGTH,  SOD,  THETA,  X,  STMCOD 
FORMAT (/ 


7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 


**  FUSELAGE  ENGINE  POD  NUMBER  ',11,  '  **'// 


(1)  ENGINE  POD  DIAMETER  (FT) . ',F6.2/ 

(2)  ENGINE  POD  LENGTH  (FT) . ',F6.2/ 

(3)  STAND-OFF  DISTANCE . ',F5.2/ 

(0.0  -  COTANGENT  POD)'/ 

(-1.0  -  SEMI-BURIED  POD)'/ 

(-2.0  -  FULLY  BURIED  POD)'/ 

(4)  ANGULAR  ORIENTATION  OF  POD  (DEG) . ',F5.2/ 

(0.0  DEG  -  POD  IS  MOUNTED  AT  3  OCLOCK) ' / 

(90  DEG  -  POD  IS  MOUNTED  ON  TOP  OF  FUSELAGE)'/ 

(5)  X  LOCATION  OF  THE  LE  OF  POD,  RELATIVE  TO  THE'/ 

NOSE  OF  THE  FUSELAGE,  GIVEN  AS  A  FRACTION  OF'/ 

THE  FUSELAGE  LENGTH . ',F3.1/ 

(6)  WING  POD  SYMMETRY . ',11/ 

(0  -  WING  POD  HAS  IMAGE  ON  OPPOSITE  WING)'/ 

(1  -  WING  POD  DOBS  NOT  HAVE  AN  IMAGE)'// 

'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 

READ (5,21, ERR-3720)  NUM 
IF(NUM.EQ.O)  GOTO  3770 

GOTO  (3730,  3740,  3745,  3750,  3760,  3765)  ,NUM 
GOTO  3720 
WRITE (6, 3731) 

FORMAT (/7X,' ENTER  THE  POD  DIAMETER  (FEET);  ',$) 
READ(5,3635,ERR-3730)  DIAM 

IF((DIAM.LB.0.0) .OR. (DIAM.GT.30.0))  GOTO  3730 
GOTO  3720 
WRITE (6,  3741) 

FORMAT (/7X, 'ENTER  THE  POD  LENGTH  (FEET):  ',$) 
READ(5,3635,ERR-3740)  LENGTH 

IF ( (LENGTH. LE. 0.0) .OR. (LENGTH. GT. 40.0) )  GOTO  3740 
GOTO  3720 
WRITE (6, 3746) 

FORMAT (/7X, 'ENTER  THE  POD  STAND-OFF  DISTANCE'/ 

7X, ' (0.0  -  COTANGENT  POD)'/ 

7X, '(-1.0  -  SEMI-BURIED  POD) ' / 

7X, '(-2.0  -  FULLY  BURIED  POD):  ',$) 

READ(5,2460,ERR-3745)  SOD 

IF ( (SOD.LT,-2,0) .OR. (SOD.GT.3.0) )  GOTO  3745 
GOTO  3720 
WRITE (6, 3751) 

FORMAT (/7X, 'ENTER  THE  ANGULAR  ORIENTATION  OF  THE  FUSELAGE'/ 

7X, 'POD  AS  SEEN  FROM  THE  FRONT  OF  THE  AIRCRAFT.'/ 

7X, '0.0  ■»  3  OCLOCK  POSITION'/ 

7X, '90.0  -  12  OCLOCK  POSITION:  ',$) 

READ(5,2460,BRR-3750)  THETA 

IF( (THETA. GT. 90.0) .OR. (THSTA.lt. -90,0) )  GOTO  3750 
GOTO  3720 
WRITE (6, 3761) 

FORMAT (/7X, 'ENTER  THE  X  LOCATION  OF  THE  LEADING  EDGE  OF'/ 

7X, 'THE  FUSELAGE  POD,  RELATIVE  TO  THE  AIRCRAFT  NOSE,  AS'/ 
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&  7X, 'A  FRACTION  OF  THE  FUSELAGE  LENGTH:  ',$) 

READ(5,3762,ERR-3760)  X 
IF( (X.LT.0.0) .OR. (X.GT.1.0) )  GOTO  3760 

3762  FORMAT (F3.1) 

GOTO  3720 

3765  WRITE (6, 3766) 

3766  FORMAT (/7X, 'ENTER  THE  FUSELAGE  POD  SYMMETRY  CODE:'/ 

&  7X, ' (0  -  POD  HAS  AN  IMAGE  ON  OPPOSITE  SIDE)'/ 

&  7X,' (1  -  POD  DOES  NOT  HAVE  AN  IMAGE)  ',$) 

READ(5,2940,ERR-3765)  SYMCOD 
IF( (SYMCOD.NE.O) .AND. <SYMCOD .NE. 1) )  GOTO  3765 
GOTO  3720 

3770  WRITE (7, 3771)  DIAM,  LENGTH,  SOD,  THETA,  X,  OUTCOD,  SYMCOD 

3771  FORMAT('  $FPOD' /5X, 'DIAM-' ,F6.2, ' , ' , 3X, 'LENGTH-' ,F6.2, ' , ' , 
&  IX,  '  SOD-' , F5 . 2, ' , ' /5X, ' THETA-' , F5 . 2, ' , ' , 3X,  ' X-'  , F3 . 1, ' , ' , 

&  9X, 'OUTCOD-' , 11, ' , ' /5X, ' SYMCOD-' , II, ' , ' /5X, ' $END' ) 

3790  CONTINUE 


-  FUSELAGE  GEOMETRY 


3800  IF<DVFLAG.EQ. .TRUE.)  THEN  !  SET  $FUS  DEFAULTS 

BDMAX-5 . 0 
BODL-50 . 0 
DRADAR-0 . 0 
FRAB-2 . 0 
FRATIO-0 . 0 
FRN-3 . 0 
LRADAR-0 . 0 
SFFACT-1 . 0 
WALL-0 . 0 
WFUEL-5000 . 0 
OUTCOD-2 
ITAIL-0 

ELSE  !  GET  THE  OLD  VALUES 

REWIND <10) 

3805  READ (10, 26)  ANS 

IF (AN5.EQ. '$$$$$$')  THEN  !  OLD  $FUS  NOT  FOUND.  SET  DEFAULTS 
BDMAX-5 . 0 
BODL-50.0 
DRADAR-0 . 0 
FRAB-2. 0 
FRATIO-0 . 0 
FRN-3 . 0 
LRADAR-0 . 0 
SFFACT-1 . 0 
WALL-0 . 0 
WFUBL-5000.0 
OUTCOD-2 
ITAIL-0 
ELSE 

IF(ANS.NE.'  $FUS  ')  GOTO  3805 

READ (10, 3810)  BDMAX,  BODL,  DRADAR,  FRAB,  FRATIO,  FRN,  LRADAR, 
&  SFFACT,  WALL,  WFUEL,  OUTCOD,  ITAIL 

3810  FORMAT(11X,F5.2,9X,F6.2,11X,F5.2/10X,F5.2,12X,F5,2,7X,F5.2/ 

&  12X, F5 . 2, lOX, F5 . 2, 8X, F5 . 2/llX, F8 . 1, 8X, II, 13X,  II) 

ENDIF 

ENDIF 

3815  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 3820)  BDMAX,  BODL,  DRADAR,  FRAB,  FRATIO,  FRN,  LRADAR, 
SSFFACT,  WALL,  WFUEL,  ITAIL 
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3820  FOR»4AT(/ 

&7X, rUSEIAGE  GEOfflTRY  **'// 

&7X,'(1)  MAXIMUM  FUSELAGE  DIAMETER  (FT) . ',F5.2/ 

fi7X,  '  (2)  FUSELAGE  LENGTH  (FT) . '  ,  F6 . 2/ 

&7X,  '  (3)  DIAMETER  OF  NOSE  RADAR  DISH  (FT) . ',**5.2/ 

&7X, M4)  AFTERBODY  FINENESS  RATIO  (LEN6TH/DIAM) _ ',F5.2/ 

&7X, '(5)  FUSELAGE  FINENESS  RATIO  (LENGTH/DIAM) . ',F5.2/ 

&7X, '(6)  NOSE  FINENESS  RATIO  (LENGTH/DIAM) . ',F5.2/ 

£7X, '(7)  LENGTH  OF  RADAR  EQUIP  BEHINU  RADAR  (FT) . . . ' , F5 . 2/ 

47X,  '  (8)  SURFACE  AREA  COMPLEXITY  FACTOR . ',F5.2/ 

&7X,M9)  fuselage  NALL  THICKNESS  (FT)'/ 

S7X,  '  (TRANSPORTS  ONLY) . '  ,  F5 . 2/ 

&7X, '(10)  MISSION  FUEL  WEIGHT  ESTIMATE  (LBS) _ ',F8.1/ 

47X,'(11)  TAIL  TYPE . ',11/ 


67X, '  (0  -  ENGINE  NOZZLE  AT  REAR  OF  FUSELAGE) ' / 

67X, '  (1  -  FUSELAGE  TAPERS  DOWN  WITHOUT  A  NOZZLE)'// 

&7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  QUIT:  ',$) 
REAO(5,2411,BRR-3815)  NUM 
IF(NUM.EQ.O)  GOTO  3885 

GOTO  (3825,  3830,  3835,  3840,  3845,  3850,  3855,  3860,  3865, 
&3870,  3880),  NUM 
GOTO  3815 

3825  WRITE (6,3826) 

3826  FORMAT (/7X, 'ENTER  THE  MAXIMUM  DIAMETER  OF  THE  FUSELAGE:  ',$) 
READ(5,2460,ERR-3825)  BDMAX 

IF(BOMAX.LE.O.O)  GOTO  3825 
GOTO  3815 

3830  WRITE (6,3831) 

3831  FORMAT (/7X, 'ENTER  THE  FUSELAGE  LENGTH  (FT):  ',$) 
READ(5,2475,ERR-3830)  BODL 

IF (BOOL. LE. 0.0)  GOTO  3830 
GOTO  3815 

3835  WRITE (6, 3836) 

3836  FORMAT (/7X,' ENTER  THE  DIAMETER  OF  THE  NOSE  MOUNTED'/ 

&7X, 'RADAR  DISH  (FT):  ',$) 

READ(5,2460,ERR-3835)  DRADAR 

IF( (ORADAR.lt. 0.0) .OR. (DRADAR.GT. 20.0) )  GOTO  3835 
GOTO  3815 

3840  WRITE (6, 3841) 

3841  FORMAT (/7X, 'ENTER  THE  FINENESS  RATIO  OF  THE  AFTERBODY'/ 

&7X, ' (AFTERBODY  LENGTH/OIAMETER) :  ' , $) 

READ(5,2460,ERR-3840)  FRAB 

IF( (FRAB.LT. 0.0) .OR. (FRAB.GT. 99.99) )  GOTO  3840 
GOTO  3815 

3845  WRITE (6, 3846) 

3846  FORMAT (/7X, 'ENTER  THE  TOTAL  FUSELAGE  FINENESS  RATIO'/ 

&7X, '  (FUSELAGE  LENGTH/MAX  DIAMETER):  ',$) 

READ(5,2460,ERR-3845)  FRATIO 

IF( (FRATIO.lt. 0.0) .OR. (FRATIO.GT. 99.99) )  GOTO  3845 
GOTO  3815 

3850  WRITE (6, 3851) 

3851  FORMAT (/7X, 'ENTER  THE  FINENESS  RATIO  OF  THE  NOSE'/ 
fi7X, ' (NOSE  LENGTH/DIAMETER) :  ' , $) 

READ(5,2460,ERR-3850)  FRN 

IF( (FRN.LT. 0.0) .OR. (FRN.GT. 99.99) )  GOTO  3850 
GOTO  3815 

3855  WRITE (6, 3856) 

3856  FORMAT (/7X, 'ENTER  THE  LENGTH  OF  THE  RADAR  EQUIPMENT  THAT'/ 
&7X,'IS  LOCATED  BEHIND  THE  RADAR  (FT):  ',$) 

READ(5,2460,ERR-3855)  LRADAR 
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IF ( (LRADAR.lt. 0.0) .OR. (LRADAR.GT.30.0) )  GOTO  3855 
GOTO  3815 

3860  WRITE (6,3861) 

3861  FORMAT (/7X, 'ENTER  THE  FUSELAGE  SURFACE  AREA'/ 

&7X, ' COMPLEXITY  FACTOR:  ' , $) 

READ(5,2460,ERR-3860)  SFFACT 

IF( (SFFACT.LE.0.0) .OR. (SFFACT.GT.2.0) )  GOTO  3860 
GOTO  3815 

3865  WRITE (6, 3866) 

3866  FORMAT (/7X, 'ENTER  THE  THICKNESS  OF  THE  FUSELAGE  WALL  (FT)'/ 
S7X, ' (USED  FOR  TRANSPORT  AIRCRAFT  ONLY) :  ',$) 

READ(5,2460,ERR-3865)  WALL 

IF( (WALL. LT. 0.0) .OR. (WALL. GT. 1.0) )  GOTO  3865 
GOTO  3815 

3870  WRITE (6, 3871) 

3871  FORMAT (/7X, 'ENTER  AN  ESTIMATE  FOR  THE  MISSION  FUEL'/ 
fi7X, 'WEIGHT  (LBS):  ',$) 

RBAD(5,3875,ERR-3870)  WFUEL 
3875  FORMAT (F8.1) 

IF (WFUEL.lt. 0.0)  GOTO  3870 
GOTO  3815 

3880  WRITE (6,  3881) 

3881  FORMAT (/7X, 'ENTER  THE  TAIL  INDICATOR'/ 

&7X, ' (0  -  ENGINE  NOZZLE  AT  REAR  OF  FUSELAGE)'/ 

&7X, ' (1  -  FUSELAGE  TAPERS  DO'^  WITHOUT  A  NOZZLE) :  ',$) 
REAO(5,2940,ERR-3880)  ITAIL 
IF( (ITAIL.NE.O) .AND. (ITAIL.NE.l) )  GOTO  3880 
GOTO  3815 

3885  WRITE (7, 3886)  BDMAX,  BODL,  DRADAR,  FRAB,  FRATIO,  FRN,  LRADAR, 
&SFFACT,  WALL,  WFUEL,  OUTCOD,  ITAIL 

3886  FORMAT('  $FUS' /5X, 'BDMAX-' ,F5.2, ' , ' ,3X, 'BODL-' ,F6.2,  '  ,  '  ,  3X, 

4' DRADAR-' , F5 . 2, ' , ' /5X, ' FRAB-' , F5 . 2, ' , ' , 4X, ' FRATIO-' , F5 . 2, ' , ' , 
42X, ' FRN-' , F5 . 2, ' , ' /5X, ' LRADAR-' , F5 . 2, ' , ' , 2X, '  SFFACT-' ,  F5 . 2, 

4  '  , '  , 2X, ' WALL-' ,F5.2,','/5X,' WFUEL-' , F8 . 1 , ' , ' , ' OUTCOD-' ,11,',', 
4  6X, 'ITAIL-', 11,',' /5X,' SEND') 

GOTO  4100 

C - 

C - CREW  STATION  GECM4ETRY 

C - 

4100  IF (CREW.EQ. 'NO' )  GOTO  4300 
IF (DVFLAG . EQ . . TRUE . )  THEN 
LENGTH-0 . 0 
WIDTH-0 . 0 
NCREW-2 
OUTCOD-2 
TAND-. FALSE. 

ELSE 

REWIND (10) 

4105  READ (10, 26)  ANS 

IF(ANS.EQ. '$$$$$$')  THEN 
LENGTH-0 . 0 
WIDTH-0 . 0 
NCREW-2 
OUTCOD-2 
TAND-, FALSE. 

ELSE 

IF(ANS.NE.'  SCREW')  GOTO  4105 

READ (10, 4110)  LENGTH,  WIDTH,  NCREW,  OUTCOD,  TAND 
4110  F0RMAT(12X,F6.2,8X,F6.2,9X,I2/12X, I1,12X,L1) 

ENDIF 
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ENDIF 

4115  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 4120)  LENGTH,  WIDTH,  NCREW,  TAND 


4120  FORMAT (/ 

t7X, '**  CREW  STATION  GEOfflTRY  **'// 

t7X, '  (1)  LENGTH  OF  CREW  STATION  (FT) . ',F6.2/ 

«7X,'(2)  WIDTH  OF  CREW  STATION  (FT) . ',F6.2/ 

&7X,M3)  NUMBER  OF  CREWMEMBERS . ',12/ 

&7X, '(4)  SEATING  ARRANGEMENT . ',L1/ 

«7X, '  (T  -  TANDOM  SEATING)'/ 

47X, '  (F  -  2  ABREAST  SEATING)'// 


47X,' SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,2940,ERR-4115)  NUM 
IF(NUM.EQ.O)  THEN 

WRITE (7, 4130)  LENGTH,  WIDTH,  NCREW,  OUTCOD,  TAND 
4130  FORMAT ('  SCREW' /5X,  ' LENGTH-' , FS . 2, '  ,  ' , IX, ' WIDTH-' , F6 . 2, ' , ' , 2X, 

&  ' NCREW-' , 12, ' , ' /5X, ' OUTCOD-' , II, ' , ' , 6X, ' TAND-' , LI, ' , ' /5X, ' SEND' 

GOTO  4300 
ENDIF 

GOTO  (4140,  4150,  4160,  4170)  ,NUM 
GOTO  4115 
4140  WRITE (6, 4145) 

4145  FORMAT (/7X, 'ENTER  THE  LENGTH  OF  THE  CREW  STATION  (FT).'/ 

47X, 'IF  0.0  IS  ENTERED,  ACSYNT  WILL  SIZE  IT:  ',S) 
READ(5,2475,ERR-4140)  LENGTH 

IF( (LENGTH. LT. 0.0) .OR. (LENGTH. GT. 30.0) )  GOTO  4140 
GOTO  4115 
4150  WRITE (6, 4155) 

4155  FORMAT (/7X, 'ENTER  THE  WIDTH  OF  THE  CREW  STATION.'/ 

£7X, 'IF  0.0  IS  ENTERED,  ACSYNT  WILL  SIZE  IT:  ',S) 
READ(5,2475,ERR-4150)  WIDTH 

IF( (WIDTH. LT. 0.0) .OR. (WIDTH. GT. 20.0))  GOTO  4150 
GOTO  4115 
4160  WRITE (6, 4165) 

4165  FORMAT (/7X, 'ENTER  THE  NUMBER  OF  CREWMEMBERS:  ',$) 
READ(5,2411,ERR-4160)  NCREW 
IF (NCREW. LT.O)  GOTO  4160 
GOTO  4115 
4170  WRITE (6,  4175) 

4175  FORMAT (/7X, 'ENTER  THE  SEATING  ARRANGEMENT.'/ 

47X, '(T  -  TANDEM  SEATING) ' /7X, ' (F  -  2  ABREAST  SEATING):  ',S) 
R£AD(5,3105,ERR-4170)  TAND 
GOTO  4115 

C  -  FUSELAGE  FUEL  BAYS 

4300  IF (FUEL. EQ. 'NO')  GOTO  4700 
STATUS  -  LIB$SPAWN('CLS') 

4301  WRITE (6, 4305) 

4305  FORMAT (// 

fi7X, 'HOW  MANY  FUSELAGE  FUEL  BAYS  ARE  THERE  ?'// 
fi7X, '(1)  ONE  FUEL  BAY'/7X, '(2)  TWO  FUEL  BAYS'// 

67X, 'SELECT  1  OR  2 :  ',S) 

R£AD(5,2940,ERR-4301)  NUM 
GOTO  (4350,  4500)  NUM 
GOTO  4301 

C  -  1  FUEL  BAY 

4350  IF (DVFLAG . EQ . . TRUE . )  THEN 
DEN-48.62 
FRAC-1 . 0 
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WFUEL-O . 0 
OUTCOD-2 
ELSE 

REWIND (10) 

4355  READ (10,  26)  ANS 

IF (ANS.BQ. '$$$$$$')  THEN 
DEN-50 . 

FRAC-1 . 0 
OUTCOD-2 
ELSE 

IF (ANS. HE.'  $FUEL')  GOTO  4355 
READ (10, 4360)  DEN,  FRAC,  WFUEL,  OUTCOD 
4360  FORMAT (9X, F5 . 2, IIX, F4 . 2, 12X, F8 . 1/12X, 11) 

FRAC-1. 0  !  ONLY  ONE  FUEL  BAY  HERE 

ENDIF 
ENDIF 

4365  STATUS  -  LIBSSPAWN (' CLS' ) 

WRITE (6, 4370)  DEN 
4370  FORMAT (/ 

47X, '**  FUSELAGE  FUEL  BAY  **'// 

&7X,'(1)  FUEL  DENSITY  (LBS/FT3) . ',F5.2// 

6 7X' SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,2940,ERR-4365)  NUM 
IF(NUM.EQ.O)  THEN 

WRITE (7, 4375)  DEN,  FRAC,  WFUEL,  OUTCOD 
4375  FORMAT('  $FUEL' /5X, 'DEN-' ,F5 . 2, ' , ' , 5X, ' FRAC-' , F4 . 2, ' , ' , 5X, 
&  'WFUEL-' ,F8 . 1, ' , ' /5X, ' OUTCOD-' , 11, ' , ' /5X, ' $END' ) 

GOTO  4700 
ENDIF 

GOTO  (4380)  ,NUM 
GOTO  4365 
4380  WRITE (6, 4385) 

4385  FORMAT (/7X, 'ENTER  THE  FUEL  DENSITY  (LB/FT3) :  ',$) 
READ(5,2460,ERR-4380)  DEN 
IF (DEN. LT. 0.0)  GOTO  4380 
GOTO  4365 

C  -  2  FUEL  BAYS 

4500  CONTINUE 

IF  (DVFLAG .  EQ .  .  TRX7E . )  THEN 
DENl-50. 

OEN2-50 . 

FRAC-0 . 5 
WFUEL-0 . 0 
OUTCOD-2 
ELSE 

REWIND (10) 

4505  READ (10, 26)  ANS 

IF (ANS.EQ. '$$$$$$')  THEN 
DENl-48.62 
0EN2-48.62 
FRAC-0 . 5 
WFUEL-0 . 0 
OUTCOD-2 
ELSE 

IF(ANS.NE.'  $FUEL')  GOTO  4505 
READ (10, 4510)  DENI,  FRAC,  WFUEL,  OUTCOD 
4510  FORMAT (9X,F5. 2, IIX, F4 .2, 12X, F8 . 1/12X, II) 

FRAC-0. 5  !  2  FUEL  BAYS  HERE 

4515  READ (10, 26)  ANS 

IF (ANS. EQ. '$$$$$$' )  THEN 
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DEN2-50 . 0 
ELSE 

IF(ANS.NE.'  $FUEL')  GOTO  4515 
READ (10, 4520)  DEN2 
4520  FORMAT (9X,F5. 2) 

ENDXF 

ENDIF 

ENDXF 

4530  STATUS  -  LIB$ SPAWN (' CLS' ) 

NRXTE(6, 4535)  DENI,  DEN2 
4535  FORMAT </ 

S7X, FUSELAGE  FUEL  BAY  GEOMETRY  **'// 

&7X,  Ml)  FUEL  DENSITY  XN  FUEL  BAY  NUMBER  1  (LB/FT3)  .  .  .  '  ,  F5 .2/ 
S7X,M2)  fuel  DENSXTY  XN  FUEL  BAY  NUMBER  2  (LB/FT3)  .  .  . '  ,  F5 .2// 

«7X, 'SELECT  THE  VALUE  TO  CHANGE  OR  0  TO  CONTXNUE:  ',$) 
R£AD(5,2940,ERR-4S30)  NUM 
XF(NUM.BQ.O)  THEN 

NRXTE(7,4540)  DENI,  FRAC,  WFUEL,  OUTCOD,  DBN2,  FRAC,  NFUEL, 

«  OUTCOD 

4540  FORMAT ('  $FUEL' /5X, 'DEN-' , F5 .2, ' , ' , 5X, ' FRAC-' ,F4 .2, ' , ' , 5X, 

&  'WFUEL-' ,F8 . 1, ' , ' /5X, 'OUTCOD-' , II, ' , ' /5X, ' $EHD' / 

C  '  $FUEL'/5X, 'DEN-',F5.2,',',5X,'rRAC-',F4.2,',',5X, 

«  ' WFUEL-' , F8 . 1, ' , ' /5X, ' OUTCOD-' , XI, ' , ' /5X, ' $END' ) 

GOTO  4700 
ENDXF 

GOTO  (4550,  4560)  ,NDM 
GOTO  4530 
4550  WRITE (6, 4555) 

4555  FORMAT (/7X, 'ENTER  THE  FUEL  DENSITY  XN  BAY  NUMBER  1  (LB/FT3) :  ',$) 
READ(5,2460,ERR-4550)  DENI 
IF (DENI, LT. 0.0)  GOTO  4550 
GOTO  4530 
4560  WRITE (6, 4565) 

4565  FORMAT (/7X,' ENTER  THE  FUEL  DENSITY  XN  BAY  NUMBER  2  (LB/FT3) :  ',$) 
READ(5,2460,BRR-4560)  DEN2 
IF (DEN2.lt. 0.0)  GOTO  4560 
GOTO  4530 
4700  WRITE (7, 4705) 

4705  FORMAT (80 ('$')) 

RETURN 

END 

C - 

C  -  THIS  SETS  THE  $WXNG  NAMELIST  DEFAULT  VALUES 

SUBROUTINE  WINGDV (AR, AREA, DXHED, FDENWG, LFLAPC, SWEEP , SWFACT, 
4TAPBR, TCROOT, TCTXP, TFLAPC, WFFRAC, XWXN6, ZROOT, KSWBBP, OUTCOD) 

REAL  LFLAPC 
INTEGER  OUTCOD 
AR-5,0 
AREA-500.0 
DXHED-0.0 
FDENWG-48.62 
LFLAPC-0 . 12 
SWEEP-0 . 0 
SWFACT-1 . 0 
TAPER-0 . 99 
TCROOT-0 . 1 
TCTXP-0 . 1 
TrLAPC-0.12 
WFFRAC-l . 0 
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XWlNG-0 . 5 

ZROOT-0 . 0 

KSHEEP-0 

OOTCOD-2 

RETURN 

END 

SUBROUTINE  TRAJ (DVFLAG) 

-  TRAJECTORY  MODULE 

LOGICAL  DVFLAG,  LENVEL 

CHARACTER  ANS*6,  PHASE*8,  TZTLE*80 

INTEGER  STATUS,  LIB$SPAWN,  SALT,  EALT,  W,  B,  A,  P 

REAL  MEND'TR 

DIMENSION  PHASE (12) ,  SMACH(12),  EMACH(12),  SALT(12),  EALT(12), 
&DIST(12),  TIME (12),  TURNS (12),  VIND(12),  HKFUEL(12),  M(12), 
&IP(12),  IX(12),  W(12),  B(12),  A(12),  P(12) 

IF (DVFLAG. EQ. .FALSE.)  THEN  !  OPTION  TO  BYPASS  TRAJECTORY 

4000  STATUS  -  LIB$SPAHN (' CLS' ) 

WRITE (6, 4001) 

4001  FORMAT (// 

i  7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  TRAJECTORY'/ 
i  7X, 'MODULE  ?'//7X, '(1)  YES' /7X, ' (2)  NO'// 

&  7X, 'SELECT  1  OR  2:  ',$) 

READ(5,4004,ERR-4000)  NUM 

4004  FORMAT (II) 

IF((NUM.NE.l) .AND. (NUM.NE.2))  GOTO  4000 
IF(NOM.EQ.l)  GOTO  5007 

C  -  TRANSFER  TRAJECTORY  DATA  FROM  (10)  TO  (7) 

REWIND (10) 

5000  READ (10, 5001)  ANS 

5001  FORMAT (A6) 

IF (ANS.NE. '$$$$$$')  GOTO  5000 

5003  READ (10, 5004)  TITLE 

5004  FORMAT (A80) 

IF(TITLE(1:6) .EQ.'***  AE')  RETURN 
WRITE (7, 5004)  TITLE 
GOTO  5003 
ENDIF 

5007  IF (DVFLAG. EQ. .TRUE. )  THEN  !  SET  TRAJECTORY  DEFAULTS 

CALL  TRAJDV (CRMACH, DECEL, DELHP,DELMP, DESLF, FLFAC, FRFURE, FWGMAX, 

&  HMAXP , HMINP , MENDUR, QMAX, RANGE, SMMAXP , SMMINP , TIMTOl , TIMT02 , 
i  TOL , ULTLF , WCOMBP , WFEXT , WFTRAP , WFUEL , WKF , WKLAND , XDESC , IBREG , 

&  lENDUR,  IPLOT,  i.P3IZE,  IPRINT,  TPSTOl,  IPS’T'02,  KERROR,MILCOM,MMPROP, 

&  NCODE, NCRUSE, LENVEL) 

NUMPHA-1 

ELSE 

REWIND  (10) 

5008  READ (10, 5001)  ANS 

IF (ANS.NE.'  $TRDA')  GOTO  5008 

C  -  WKF-WKFUEL  REQUIRED  DUE  TO  ARRAY  USED  FOR  WKFUEL  IN  PHASES 

READ (10,5010) CRMACH, DECEL, DELHP , DELMP , DESLF , FLFAC ,  FRFURE ,  FWGMAX, 
&  HMAXP ,  HMINP  ,  MENDUR,  ^4AX,  RANGE,  SbBIAXP ,  SMMINP  ,  TIMTOl ,  TIMT02 , 

&  TOL, ULTLF, WCOMBP, WFEXT, WFTRAP, WFUEL, WKF, WKLAND, XDESC,  IBREG, 

6  lENDUR, IPLOT, IPSIZE, IPRINT, IPSTOl, IPST02, KERROR,MILC<»l,MMPROP, 

&  NCODE, NCRUSE, LENVEL, NUMPHA 

5010  FORMAT (12X, F4 . 2, lOX, F4 .2, IIX, F6. 1/llX, F3 . 1, 12X, F5 . 2, lOX, F3 . 1/ 

&  12X,F4.2,llX,F3.1,llX,F7.1/llX,F3.1,13X,r4.2, 9X,F6.1/ 

&  llX,r7.1,9X,F3.1,12X,F3.1/12X,F5.2,10X,F5.2,7X,F5.3/ 
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6  IIX, rs . 2, lix, F5 . 3, 9X, F7 . 1/12X, F6 . 1, 8X, F8 . 1 , 8X, F6 . 4/ 

&  12X, F4 . 2, lOX, F5 . 1, lOX, 11/12X, II, 13X, II, 15X, 12/ 

£  12X,  II, 14X, II, 14X, I1/12X, II, 14X, II, 14X, 11/ 

&  11X,I1,15X,I2,13X,L1//I10) 

NPHASE-NUMFHA  fNFHASE  IS  THE  ORIGINAL  NUMBER  OF  PHASES  FROM  (10) 
ENDIF 

-  TRAJECTORY  PAGE  1 

5020  STATUS  -  LIBSSPANN (' CLS' ) 

WRITE (6, 5025)  CRMACH,  MENDUR,  DESLF,  ULTLF,  RANGE,  MILCOM 

5025  FORMAT (/ 

67X, '**  TRAJECTORY  DATA:  PAGE  1  **'// 

67X,  '  (1)  CRUISE  MACH  NUMBER . ',F4.2/ 

«7X,' (2)  APPROXIMATE  MACH  NUMBER  FOR  MAX  ENDURANCE F4 . 2/ 

47X,M3)  design  LOAD  FACTOR  (G"S) . ',F5.2/ 

67X, '(4)  ULTIMATE  LOAD  FACTOR  (G"S) . ',F5.2/ 

47X,'(5)  aircraft  RANGE  (NM) . '  ,ri  .\/ 

47X, '(6)  MAXIMUM  DYNAMIC  PRESSURE  (LBS/FT2) . ',F6.1/ 

S7X,  M7)  TAKEOFF  OBSTACLE  REQUIREMENT . ',11/ 

£7X, '  (0  -  MILITARY  AIRCRAFT)'/ 

fi7X, '  (1  -  CIVILIAN  AIRCRAFT)'// 

47X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
REAO(5,4004,ERR-5020)  NUM 
IF(NUM.EQ.O)  GOTO  5150 

GOTO  (5050,  5060,  5070,  5080,  5090,  5100,  5110)  ,NUM 
GOTO  5020 
5050  WRITE (6, 5055) 

5055  FORMAT (/7X, 'ENTER  AN  ESTIMATE  FOR  THE  CRUISE  MACH  NUMBER:  ',$) 
READ(5,5056,ERR-5050)  CRMACH 

5056  FORMAT (F4. 2) 

IF ( (CRMACH. LE. 0.0) .OR. (CRMACH. GT. 3.0))  GOTO  5050 
(SOTO  5020 
5060  WRITE (6, 5065) 

5065  FORMAT (/7X, 'ENTER  AN  ESTIMATE  FOR  THE  MACH  NUMBER  AT'/ 

&7X, 'MAX  ENDURANCE:  ',$) 

READ(5,5056,ERR-5060)  MENDUR 

IF((MENDUR. LT. 0.0) .OR. (MENDUR. GT. 2.0))  GOTO  5060 
GOTO  5020 
5070  WRITE (6, 5075) 

5075  FORMAT (/7X, 'ENTER  THE  DESIGN  LOAD  FACTOR  (G"S) :  ',$) 
READ(5,5056,ERR-5070)  DESLF 

IF( (DESLF.lt. 1.0) .OR. (DESLF.GT. 12.0) )  GOTO  5070 
GOTO  5020 
5080  WRITE (6, 5085) 

5085  FORMAT (/7X, 'ENTER  THE  ULTIMATE  LOAD  FACTOR  (G"S) :  ',$) 
READ(5,5086,ERR-5080)  ULTLF 

5086  FORMAT (F5. 2) 

IF( (ULTLF. LT. 1.0) .OR. (ULTLF. GT. 15.0))  GOTO  5080 
GOTO  5020 
5090  WRITE (6, 5095) 

5095  FORMAT (/7X, 'ENTER  AN  ESTIMATE  FOR  THE  AIRCRAFT'/ 

&7X, 'MAX  RANGE  (NM)  :  ',$) 

READ(5,5096,ERR-5090)  RANGE 

5096  FORMAT (F7.1) 

IF (RANGE. LE. 0.0)  GOTO  5090 
GOTO  5020 
5100  WRITE (6, 5105) 

5105  FORMAT (/7X, 'ENTER  THE  DESIGN  MAXIMUM  DYNAMIC  PRESSURE  (LB/FT2) 

',$) 
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READ(5,5106,ERR-5100)  QMAX 
IF(QMAX.LE.O.O)  GOTO  5100 
5106  FORMAT (F6.1) 

GOTO  5020 
5110  WRITE (6, 5115) 

5115  FORMAT </7X, 'ENTER  THE  TAKEOFF  OBSTACLE  REQUIREMENT'/ 

S7X, ' (0  -  MILITARY  AIRCRAFT,  1  -  CIVILIAN  AIRCRAFT) :  ',$) 
REAO(5,4004,ERR-5110)  MILCOM 

IF( (MILCOM.NE.O) .AND. (MILCOM.NE.l) )  GOTO  5110 
GOTO  5020 


C - 

C  -  TRAJECTORY  PAGE  2 

5150  STATUS  -  LIB$SPAMN('CLS') 

WRITE (6, 5155)  TIMTOl,  IPSTOl,  TIMT02,  IPST02,  IBREG,  lENDUR 
5155  FORMAT (/ 

47X, '**  TRAJECTORY  PAGE  2  **'// 

fi7X, '(1)  AMOUNT  OF  TIME  DURING  WARM-UP  AND  TAXI  (MIN) . . . ' , F5 . 2/ 


47X,'  (2)  POWER  SETTING  DURING  WARM-UP  AND  TAXI . '/II/ 

fi7X, ' (3)  AMOUNT  OF  TIME  SPENT  DURING  TAKE-OFF  (MIN) . ',F5.2/ 

&7X,  '  (4)  POWER  SETTING  DURING  TAKE-OFF . '/II/ 

67X, '(5)  BREGUET  ALTITUDE  SEARCH  FLAG . '/II/ 

&7X,'  (0  -  NO  SEARCH,  1  -  SEARCH  FOR  RANGE  '/ 

fi7X,  '  OPTIMUM  ALTITUDE) ' / 

fi7X,  '  (6)  LOITER  ALTITUDE  SEARCH  FLAG . ',11/ 

S7X, '  0  -  NO  SEARCH'/ 

&7X,  '  1  -  SEARCH  FOR  BEST  LOITER  ALTITUDE'// 


4 7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,4004,ERR-5150)  NUM 
IF(NUM.EQ.O)  GOTO  5300 

GOTO  (5170,  5180,  5190,  5200,  5210,  5220)  ,NUM 
GOTO  5150 
5170  WRITE (6, 5175) 

5175  FORMAT (/7X, 'ENTER  THE  AMOUNT  OF  TIME  THAT  WILL  BE'/ 

47X, 'SPENT  DURING  WARM-UP  AND  TAXI  (MIN):  ',$) 
READ(5,5086,ERR-5170)  TIMTOl 
IF (TIMTOl. LE. 0.0)  GOTO  5170 
GOTO  5150 
5180  WRITE (6,5185) 

5185  FORMAT (/7X, 'ENTER  THE  POWER  SETTING  THAT  WILL  BE  USED'/ 
47X, 'DURING  WARM-UP  AND  TAXI.'/ 

47X, ' (1  -  MAX  AFTERBURNER,  2  -  MILITARY  POWER'/ 

47X, '  3  -  MAX  CONTINUOUS,  4  -  THRUST  EQUALS  DRAG'/ 

S7X, '  5  -  IDLE  POWER):  ',$) 

READ(5,4004,ERR-5180)  IPSTOl 
IF( (IPSTOl. LT.l) .OR. (IPSTOl. GT. 5) )  GOTO  5180 
GOTO  5150 
5190  WRITE (6, 5195) 

5195  FORMAT (/7X, 'ENTER  THE  AMOUNT  OF  TIME  THAT  WILL  BE  SPENT'/ 
4 7X, 'DURING  THE  TAKE-OFF  (MIN):  ',$) 

READ(5,5086,ERR-5190)  TIMT02 
IF(TIMTO2.LE.0.0)  GOTO  5190 
GOTO  5150 
5200  WRITE (6, 5205) 

5205  FORMAT (/7X, 'ENTER  THE  POWER  SETTING  THAT  WILL  BE'/ 

47X, 'USED  DURING  THE  TAKE-OFF.'/ 

47X,  '  (1  -  MAX  AFTERBURNER,  2  »  MILITARY  POWER' / 

47X,  '  3  -  MAX  CONTINUOUS,  4  -  THRUST  EQUALS  DRAG'/ 

47X, '  5  -  IDLE  POWER):  ',$) 

READ (5, 4004,ERR-5200)  IPST02 
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IF ( (1PST02.lt. 1) .OR. (IPST02.GT. 5))  GOTO  5200 
GOTO  5150 
5210  NRITE(6,5215) 

5215  FORMAT (/7X, 'ENTER  THE  BREGUET  ALTITUDE  SEARCH  FLAG.  THIS'/ 
&7X, 'WILL  ENABLE  ACSYNT  TO  DETERMINE  THE  RANGE-OPTIMUM'/ 
&7X, 'ALTITUDE  DURING  THE  CLIMB  AND  CRUISE  PHASES  OF  THE'/ 
£7X,' TRAJECTORY.  (0  -  NO  SEARCH,  1  -  SEARCH):  ',$) 
READ(5,4004,ERR-5210)  IBREG 
IF( (IBREG.NE.O) .AND. (IBREG.NE.l) )  GOTO  5210 
IBRE6-0  !  DISABLED  AT  THIS  TIME 

GOTO  5150 
5220  WRITE (6, 5225} 

5225  FORMAT (/7X, 'ENTER  THE  LOITER  ALTITUDE  SEARCH  FLAG.  THIS'/ 
&7X, 'WILL  ENABLE  ACSYNT  TO  DETERMINE  THE  TIME-OPTIMUM'/ 

«7X, 'ALTITUDE  DURING  THE  LOITER  PHASE  (0  -  NO  SEARCH,'/ 
67X,'l  -  SEARCH) :  ',$) 

READ(5,4004,BRR-5220)  lENDUR 
IF( (lENDUR.NE.O) .AND. (lENDUR.NE.l))  GOTO  5220 
IENDUR-0  !  DISABLED  AT  THIS  TIME 
GOTO  5150 


C  -  TRAJECTORY  PAGE  3 

5300  STATUS  *  LIB$SPAWN('CLS' ) 

WRITE (6, 5305)  FRFURE,  WFUEL,  WFEXT,  WFTRAP,  IPSIZE,  NCRUSE, 
fiNUMPHA,  IPRINT 
5305  FORMAT (/ 

fi7X, '**  TRAJECTORY  PAGE  3  **' // 

47X, '  (1)  FUEL  RESERVE,  AS  A  FRACTION  OF  TOTAL  FUEL . ',F4.2/ 


fi7X, '(2)  TOTAL  INTERNAL  FUEL  (LBS) . ',F8.1/ 

47X,'(3)  EXTERNAL  FUEL  WEIGHT  (LBS) . ',F7.1/ 

fi7X,'(4)  WEIGHT  OF  TRAPPED  FUEL  (LBS) . ',F6.1/ 

«7X,'(5)  ENGINE  SIZING  FLAG . ',12/ 

47X,'  (6)  NUMBER  OF  TRAJECTORY  CRUISE  PHASES . ',12/ 

47X,'  (7)  TOTAL  NUMBER  OF  TRAJECTORY  PHASES . ',12/ 

S7X,'(8)  DEBUG  OPTION . ',11// 


«7X,' SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,4004,ERR-5300)  NUM 
IF(NUM.EQ.O)  THEN  !  WRITE  STRDATA  INFO 

WRITE (7,5310)  CRMACH, DECEL, DELHP , DELMP , DESLF , FLFAC , FRFURE , 

&  FWGMAX, HMAXP , HMINP , MENDUR, QMAX, RANGE, SMMAXP , SMMINP , TIMTOl , 

&  TIMT02, TOL, ULTLF, WCOMBP, WFEXT, WFTRAP, WFUEL, WKF, WKLAND, 

&  XDESC, IBREG, lENDUR, IPLOT, IPSIZE, IPRINT, IPSTOl, IPST02,KERROR, 
i  MILCOM,  tOlPROP  ,  NCODE,  NCRUSE,  LENVEL,  NUMP.HA 
5310  FORMAT('  STRDATA' /5X, 'CRMACH-' , F4 . 2, ',', 3X, 'DECEL-' , F4 . 2, ',', 4X, 
&  '  DELHP-' , F6 . 1, ' , ' /5X, ' DELMP-' , F3 . 1, ' , ' , 5X, ' DESLF-' , F5 . 2, ' , ' , 3X, 

&  ' FLFAC-' , F3 . 1, ' , ' /5X, ' FRFURE-' , F4 . 2, ' , ' , 3X, ' FWGMAX-' , r3 . 1, ' , ' , 

&  4X, ' HMAXP-' , F7 . 1 , ' , ' /5X, ' HMINP-' , F3 . 1 ,  '  ,  '  ,  5X,  'MENDUR-'  ,  F4 . 2,  '  ,  ' , 

&  3X, ' QMAX-' , F6 . 1, ' , ' /5X, ' RANGE-' , F7 . 1, ' , ' , IX, ' SMMAXP-' , F3 . 1 , ' , ' , 

&  4X, ' S»®11NP-' , F3 . 1 , ' , ' /5X, ' TIMT01-' , F5 . 2, ' , ' , 2X, ' TIMT02-' , F5 . 2 , 

&  ' ,  '  , 2X, 'TOL-' , F5 . 3, ' , ' /5X, 'ULTLF-' , F5 . 2, ' , ' , 3X, 'WCOMBP-' , F5 . 3, 

&  ' , ' , 2X, ' WFEXT-' , F7 . 1 , ' , ' /5X, ' WFTRAP-' , F6 . 1, ' , ' , IX, ' WFUEL-' , F8 . 1, 

&  ' , ' , ' WKFUEL-' , F6 . 4, ' , ' /5X, 'WKLAND-' , r4 . 2, ' , ' , 3X, ' XDESC-' , F5 . 1, 

&  ' , ' , 3X, ' IBREG-' , II, ' , ' /5X, ' IBNDUR-' , II, ' , ' , 6X, ' IPLOT-' , 11, ' , ' , 

£  7X,  ' IPSIZE-' , 12, ' , ' /5X, ' IPRINT-' , II, ' , ' , 6X, ' 1PST01-' , II, ' , ' , 6X, 

&  '  IPST02-' , II,  '  ,  '  /5X, '  KERROR-' , II, ' , ' , 6X, 'MILCC**-' , 11, ' , ' , 6X, 

&  'MMPROP-' , II, ' , ' /5X, 'NCODE-' , II, ' , ' , 7X, 'NCRUSE-' , 12, ' , ' , 5X, 

£  ' LENVEL-', LI, ','/5X,' SEND' /IlO) 

GOTO  5400 
ENDIF 
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GOTO  (5320,  5330,  5340,  5350,  5360,  5370,  5380,  5390)  ,NUM 
GOTO  5300 
5320  WRITE (6, 5325) 

5325  FORMAT (/7X,' ENTER  THE  FUEL  RESERVE  AS  A  FRACTION'/ 
fi7X, 'OF  THE  TOTAL  FUEL:  ',$) 

READ(5,5056,ERR-5320)  FRFURE 

IF( (PRFURE.lt. 0.0) .OR. (FRFURE.GT. 0.1) )  GOTO  5320 
GOTO  5300 
5330  WRITE (6, 5335) 

5335  FORMAT (/7X, 'ENTER  THE  TOTAL  INTERNAL  FUEL  (LBS):  ',$) 
READ(5,5336,ERR-5330)  WFUEL 

5336  FORMAT (F8.1) 

IF (WPUEL.lt. 0.0)  GOTO  5330 
GOTO  5300 
5340  WRITE (6, 5345) 

5345  FORMAT (/7X, 'ENTER  THE  WEIGHT  OF  THE  EXTERNAL  FUEL  (LBS):  ',$) 
READ(5,5096,ERR-5340)  WFEXT 

IF( (WFEXT.lt. 0.0) .OR. (WFEXT.GT. 99999. 0) )  GOTO  5340 
GOTO  5300 
5350  WRITE (6, 5355) 

5355  FORMAT (/7X,' ENTER  THE  WEIGHT  OF  THE  TRAPPED  FUEL  (LBS).'/ 

S7X, ' (THIS  IS  THE  AMOUNT  OF  FUEL  THAT  IS  IN  THE  AIRCRAFT' / 

&7X, 'BUT  CANNOT  BE  BURNED):  ',$) 

READ(5,5106,ERR-5350)  WFTRAP 

IF( (WFTRAP.LT. 0.0) .OR. (WFTRAP.GT. 1000.0) )  GOTO  5350 
GOTO  5300 
5360  WRITE (6, 5365) 

5365  FORMAT (/7X, 'ENTER  THE  ENGINE  SIZING  FLAG.'/ 

67X, ' (0  -  SIZED  FOR  T/W  RATIO  AT  TAKE-OFF,  NO  AB' / 

S7X, '  -1  -  SIZED  FOR  T/W  RATIO  AT  TAKE-OFF,  WITH  AB' / 
fi7X, '  -2  -  SIZED  FOR  GIVEN  THRUST,  WITH  AB'/ 

«7X, '  -3  -  SIZED  FOR  GIVEN  THRUST,  NO  AB) ;  ',$) 
RBAD(5,5366,ERR-5360)  IPSIZE 

5366  FORMAT (12) 

IF ((IPSIZE.lt. -3) .OR. (IPSIZE. GT.O))  GOTO  5360 
GOTO  5300 
5370  WRITE (6, 5375) 

5375  FORMAT (/7X, 'ENTER  THE  NUMBER  OF  CRUISE  PHASES  THAT  ARE'/ 

47X, ' INCLUDED  IN  YOUR  TRAJECTORY  PROFILE:  ',$) 
READ(5,5366,ERR-5370)  NCRUSE 

IF ((NCRUSE.GT. 12) .OR. (NCRUSE.lt. 0))  GOTO  5370 
GOTO  5300 
5380  WRITE (6, 5385) 

5385  FORMAT (/7X, 'ENTER  THE  TOTAL  NUMBER  OF  PHASES  THAT  ARE'/ 
t7X, ' INCLUDED  IN  YOUR  TRAJECTORY  PROFILE  (12  MAX):  ',$) 
READ(5,5366,ERR-5380)  NUMPHA 
IF ( (NUMPHA.lt. 1) .OR. (NUMPHA.GT. 12) )  GOTO  5380 
GOTO  5300 
5390  WRITE (6, 5395) 

5395  FORMAT (/7X, 'ENTER  THE  DEBUG  OPTION  CODE'/ 
fi7X, '0  -  NO  DEBUG' /7X,'l  -  DEBUG:  ',$) 

READ (5, 4004)  IPRINT 

IF( (IPRINT.NE.O) .AND. (IPRINT.NE.l) )  GOTO  5390 
GOTO  5300 


-  INPUT  THE  TRAJECTORY  PHASES 


5400  IF (DVFLAG.EQ. .FALSE.)  THEN 
STATUS  -  LIB$SPAWN('CLS' ) 
5405  WRITE (6,  5406) 
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5406  FORMAT (// 

&7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  TRAJECTORY'/ 

S7X, 'PHASES  ?  (IF  YOU  CHANGED  THE  NUMBER  OF  PHASES'/ 

<i7X, 'IN  THE  LAST  SECTION  YOU  MUST  SELECT  "YES")'// 

<i7X,'(l)  YES'/7X, '(2)  NO'// 

47X, 'SELECT  1  OR  2 :  ',$) 

READ(5r5407)  ANS 

5407  FORMAT (Al) 

IF((ANS.NE.'l') .AND. (ANS.NE.'2'))  GOTO  5405 

IF(ANS.EQ.'2')  THEN  (TRANSFER  THE  OLD  TRAJECTORY  FROM  (10) TO (7) 
REWIND (10) 

5410  READ (10, 5415)  AMS 

5415  FORMAT (5X,A6) 

IF(AHS.NB.'NCODE-')  GOTO  5410 
READ (10, 5420)  ANS 

5420  FORMAT (Al/Al)  •  MOVE  THE  FILE  POINTER  2  LINES  DOWN 

READ (10, 5004)  TITLE  !  MOVE  THE  FIRST  TRAJ  HEADER  OVER  TO  (7) 

WRITE (7, 5004)  TITLE 

READ (10, 5004)  TITLE 

WRITE (7, 5004)  TITLE 

READ (10, 5004)  TITLE 

WRITE (7, 5004)  TITLE 

DO  5425  I-1,NPHASE  !  MOVE  ALL  THE  PHASES  OVER  TO  (7) 

READ (10, 5004)  TITLE 
WRITE (7, 5004)  TITLE 
5425  CONTINUE 
RETURN 
END  IF 
ENDIF 

WRITE (7, 5430) 

5430  FORMAT (9X, 'MACH  NO.  ALTITUDE  HORIZONTAL  NO.  VIND' / 

4' PHASE  START  END  START  END  DIST  TIME  TURN  "G"S' , 

4'  WKFUEL  M  IP  IX  W  B  A  P'/ 


5435  IF(DVFLAG.EQ. .TRUE.)  THEN 
DO  5440  I-1,NUMPHA 
PHASE (I) -'CLIMB  ' 
SMACH(I)-0.0 
EMACH(I)-0.0 
SALT (I) -0 
EALT(I)-0 
DIST  (I) -0.0 
TIME  (I) -0.0 
TURNS (I) -0.0 
VIND (I) -0.0 
Nia-UEL(I)-1.0 
M(I)-1 
IP (I) -2 
IX (I) -0 
W(I)-0 
B(I)-0 
A(I)-0 
P(I)-0 
5440  CONTINUE 
ELSE 

REWIND (10) 

5442  READ (10, 5001, END-5447)  ANS 

IF(ANS.NE.' - ')  GOTO  5442 

DO  5445  1-1,NPHASE 
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READ (10, 5460)  PHASE (X),  SMACH(I),  EMACH(Z),  SALT (I), 

&  EALT(I),  DIST(I),  TIME<I),  TURNS  (1),  VIND(I),  ?nCFUEL(I), 

&  M(I),  IP(1),  IX(I),  W(I),  B(I),  A(I),  P(X) 

5445  CONTXNUE 

XF (NPHASE.lt. NUMPHA)  GOTO  5447 
ENDXF 
GOTO  5449 

5447  DO  5448  X-NPHASE+1, NUMPHA  !  CC»4ES  FROM  EOF  READ 

PHASE (X)-'CLXMB  ' 

SMACK  (X) -0.0 

EMACH(X)-0.0 

SALT(X)-0 

EALT(X)-0 

DXST(X)-0.0 

TXME(X)«0.0 

TURNS (X) -0.0 

VXND(X)-0.0 

WKFUEL(X)-1.0 

M(X)-1 

XP(X)-2 

XX(X)-0 

W(X)-0 

B(X)-0 

A(X)-0 

P(X)-0 

5448  CONTXNUE 

5449  DO  5700  X-1, NUMPHA 

5450  STATUS  -  LXB$SPAWN (' CLS' ) 

NRXTE(6,5455)  X,  PHASE (X),  SMACH(X),  EMACH(I),  SALT(X), 

&  EALT(X),  DXST(X),  TXME(X),  VXND(X),  XP  (X)  ,  W(X),  B(X),  A(X) 


5455  FORMAT (/ 

6  7X, '**  PHASE  NUMBER  ',12,'  **' / / 

t  7X,'(1)  PHASE  TYPE . ',A8/ 

&  7X,'(2)  STARTXNG  MACH  number . ',F4.2/ 

&  7X,M3)  ending  MACH  number . •,TA.2/ 

ft  7X,'  (4)  STARTING  ALTXTUDE  (FT) . ' ,  X5/ 

&  7X,'(5)  ending  ALTXTUDE  (FT) . ',15/ 

6  7X,' (€)  DISTANCE  COVERED  DURING  PHASE  (NM) . ',F6.1/ 

«  7X,'  {7)  TIME  SPENT  DURING  PHASE  (MIN) . ',F5.1/ 

&  7X, '(8)  LOAD  FACTOR  DURING  CC»«BAT  (G"S) . ',F4.1/ 

&  7X,  '  (9)  POWER  SETTING  DURING  PHASE . ',11/ 

&  7X,'  (1^4AX  AB,  2^XLXTARY,  3-MAX  CONTINUOUS'/ 

&  7X,'  4-THRUST-DRAG,  5-XDLB)'/ 

4  7X, '(10)  MISSILE  DROP  INDICATOR  (CCMBAT) . ',11/ 

&  7X, '(11)  BCMB  DROP  INDICATOR  (COMBAT) . ',11/ 

&  7X, '(12)  AMMUNITION  DROP  INDICATOR  (COMBAT) . ',11// 

&  7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 

READ (5,5366,ERR-5450)  NUM 
IF  (NXm.EQ.O)  THEN 


WRITE (7, 5460)  PHASE (I),  SMACH(I),  EMACH(I),  SALT (I), 

&  EALT(I),  DIST(I),  TIME (I),  TURNS (I),  VIND(I),  WKFUEL(I), 

&  M(I),  IP(I),  IX(I),  W(I),  B(I),  A(I),  P(I) 

5460  FORMAT  (A8,  F4 . 2,  IX,  F4 . 2, 2X,  15,  IX,  15,  2X,  F6 . 1,  IX,  F5 . 1, 2X,  F4 . 1, 

&  1X,F5.1,2X,F6.4,1X, I1,1X,I2,1X,  I2,4(1X,  II) ) 

GOTO  5700 
ENDXF 

GOTO  (5470,  5480,  5490,  5500,  5510,  5520,  5530,  5540,  5550, 

&  5560,  5570,  5580)  ,NUM 

GOTO  5450 

5470  WRITE (6, 5475) 


251 


5475  FORMAT (/7X, 'ENTER  THE  PHASE  NAME  IN  CAPITAL  LETTERS'/ 

&  7X, ' (CLIMB,  ACCEL,  CRUISE,  LOITER,  COMBAT  OR  DESCENT) 

READ (5,5476,ERR-5470)  PHASE (I) 

5476  FORMAT (A8)  , 

IF ( (PHASE (I) .NE. 'CLIMB  ' ) .AND. (PHASE (I) .NE,  ACCEL 
&  (PHASE (I)  .NE.' CRUISE  ')  .AND .  (PHASE (I)  . NE .' LOITER  ') 
S  (PHASE(I) .NE.'CC»ffiAT  ') .AND . (PHASE (I) .NE .' DESCENT  ' ) 
£  GOTO  5470 

IF (PHASE (I) .EQ.' CLIMB  ')  THEN 
SMACH(I)-0.0 
EMACH (I) -0 . 0 
SALT (I) -0 
EALT(I)-20000 
DIST(I)-*0.0 
TIME (I) -0.0 
IP  (I) -2 
W(I)-0 
B(I)-0 
A(I)-0 

END  IF 

IF (PHASE (1) .EQ.' ACCEL  ')  THEN 

SMACH(I)-0.5 
EMACH(I)-1.0 
SALT (I) -20000 
EALT(I)-20000 
DIST(I)-0.0 
TIME  (I) -1.0 
IP(I)-2 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF (PHASE (1) .EQ.' CRUISE  ')  THEN 
SMACH(I)-0.7 
EMACH(I)-0.7 
SALT (I) -20000 
EALT(I)-20000 
DIST(I)-420.0 
TIME (I) -60.0 
IP  (I) -4 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF (PHASE (I) .EQ.' LOITER  ')  THEN 
SMACH(I)-0.3 
EMACH(I)-0.3 
SALT (I) -500 
EALT(I)-500 
DIST(I)-0.0 
TIME(I)-30.0 
IP(I)-4 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF (PHASE (I) .EQ. 'COMBAT  ')  THEN 
SMACH(I)-0.8 
EMACH(I)-0.8 
SALT (I) -500 


:  ',$) 


' ) .AND. 
.AND. 

) 
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EALT(l)-500 
DIST(I)-0.0 
TIME  (1) -10.0 
IP(l)-3 
W(I)-0 
B(I)-0 
A(I)-0 
ENDIF 

IF (PHASE (I) .BQ.' DESCENT  ')  THEN 
SMACH(I)-0.5 
EMACH(I)-0.5 
SALT (X) -20000 
EALT(I)-500 
DIST(I)-0.0 
TIME  (1) -0.0 
IP  (I) -5 
W(I)-0 
B(I)-0 
A(I)-0 
ENDIF 
GOTO  5450 

5480  WRITE (6, 5485) 

5485  FORMAT (/7X, 'ENTER  THE  PHASE  STARTING  MACH  NUMBER.  '/ 

&  7X, 'IF  THIS  IS  A  CLIMB  PHASE  ENTER  0.0):  ',$) 

READ<5,5056,ERR-5480)  SMACH(I) 

IF (PHASE (I) .EQ.' CLIMB  ')  SMACH(I)-0.0 

GOTO  5450 

5490  WRITE (6, 5495) 

5495  FORMAT (/7X, 'ENTER  THE  ENDING  MACH  NUMBER  FOR  THE  PHASE'/ 

&  7X, '(ENTER  0.0  FOR  CLIMB  PHASE):  ',$) 

R£AD(5,5056,BRR-5490)  EMACH(I) 

IF (PHASE (I) .EQ.' CLIMB  ')  EMACH(I)-0.0 

GOTO  5450 

5500  WRITE (6, 5505) 

5505  FORMAT (/7X, 'ENTER  THE  STARTING  ALTITUDE:  ',$) 
READ(5,5506,BRR-5500)  SALT (I) 

IF ((SALT (I) .LT.O) .OR. (SALT (I) .GT. 99999))  GOTO  5500 

5506  FORMAT (15) 

GOTO  5450 

5510  WRITE (6,5515) 

5515  FORMAT (//7X, 'ENTER  THE  ENDING  ALTITUDE  (FT)  (  -1  MAY  BE'/ 

&  7X, 'ENTERED  TO  PREVENT  THE  AIRPLANE  FROM  CLIMBING):  ',$) 

READ(5,5506,ERR-5510)  EALT(I) 

IF( (EALT(I) .LT.-l) .OR. (EALT(I) .GT.99999) )  GOTO  5510 

IF( (EALT(I) .EQ.-l) .AND. (PHASE(I) .EQ.'CLIMB  '))  GOTO  5510 

GOTO  5450 

5520  WRITE (6, 5525) 

5525  FORMAT (/7X, 'ENTER  THE  DISTANCE  COVERED  DURING  THE'/ 

&  7X, 'PHASE  (NM)  (ENTER  0.0  FOR  CLIMB/ACCEL  PHASES);  ',$) 

READ(5,5106,ERR-5520)  DIST(I) 

IF (DIST(I) .LT.0.0)  GOTO  5520 

IF ( (PHASE (I) .NE.' CRUISE  ') .AND . (PHASE (I) .NE .' LOITER  ')) 

&  DIST(I)-0.0 

GOTO  5450 

5530  WRITE (6, 5535) 

5535  FORMAT (/7X, 'ENTER  THE  AMOUNT  OF  TIME  SPENT  ON  THIS'/ 

&  7X,' PHASE  (MIN)  (ENTER  0.0  FOR  CLIMB/ACCEL  PHASES):  ',$) 

READ(5,5536,ERR-5530)  TIME (I) 

5536  FORMAT (F5.1) 

IF (TIME (1) .LT.O. 0)  GOTO  5530 
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) )  GOTO  5530 


IF( (TIME(I) .EQ.0.0) .AND. (PHASE(I) .EQ. 'ACCEL  ' 

GOTO  5450 

5540  WRITE (6, 5545) 

5545  FORMAT (/7X, 'ENTER  THE  LOAD  FACTOR  (G"S) :  ',$) 
READ(5,5536,ERR-5540)  V1ND(I) 

IF {PHASE (1) .NE.' COMBAT  ')  VlND(I)-0.0 
GOTO  5450 

5550  WRITE (6, 5555) 

5555  FORMAT (/7X, 'ENTER  THE  PHASE  POWER  SETTING'/ 

&  7X, '1  -  MAX  AFTERBURNER' /7X, '2  -  MILITARY  POWER'/ 

&  7X, '3  -  MAX  CONTINUOUS  POWER' /7X, '4  -  THRUST  EQUALS  DRAG 

6  '/7X, '5  -  IDLE  POWER:  ',$) 

READ(5,5366,ERR-5550)  IP (I) 

IF((IP(I) .LT.l) .OR. (IP(I) .GT.5))  GOTO  5550 
GOTO  5450 

5560  WRITE (6,  5565) 

5565  FORMAT (/7X, 'MISSILE  DROP  INDICATOR  (COMBAT  PHASE  ONLY)'/ 

&  7X, '0  -  NO  DROP'/7X, '1  -  DROP  AT  END  OF  PHASE:  ',$) 

READ(5,4004,ERR-5560)  H(I) 

IF((W(I)  .NE.O)  .AND.  (W(I)  .NE.D)  GOTO  5560 
IF (PHASE (I) .NE.' COMBAT  ')  W{I)-0 
GOTO  5450 

5570  WRITE (6, 5575) 

5575  FORMAT (/7X, 'BOMB  DROP  INDICATOR  (COIBAT  PHASE  ONLY)'/ 

&  7X, '0  -  NO  DROP'/7X, '1  «  DROP  AT  END  OF  PHASE:  ',$) 

READ (5,4004,ERR-5570)  B(I) 

IF( (B(I) .NE.O) .AND. (B(I) .NE.l) )  GOTO  5570 
IF (PHASE (I) .NE.' COMBAT  ')  B(I)-0 
GOTO  5450 

5580  WRITE (6, 5585) 

5585  FORMAT (/7X, 'AMMUNITION  DROP  INDICATOR  (COMBAT  PHASE  ONLY)'/ 
&  7X, '0  -  NO  DROP'/7X, '1  -  DROP  AT  END  OF  PHASE:  ',$) 

READ(5,4004,ERR-5580)  A(I) 

IF((A(I)  NE.O) .AND. (A(I) .NE.l))  GOTO  5580 
IF (PHASE (I) .NE. 'COMBAT  ')  A(I)»0 
GOTO  5450 

5700  CONTINUE 
RETURN 
END 


-  TRAJECTORY  DEFAULTS 


SUBROUTINE  TRAJDV (CRMACH, DECEL, DELHP, DELMP, DESLF, FLFAC, FRFURE, 
fiFWGMAX,  HMAXP ,  HMINP , MENDUR,  (»1AX,  RANGE,  SMMAXP ,  SMMINP ,  TIMTOl ,  TIMT02 , 
&  TOL  ,  ULTLF  ,  WCCMBP  ,  WFEXT  ,  WFTRAP  ,  WFUEL,  WKF  ,  ?»KLAND  ,  XDBSC  ,  IBREG  , 
SIENDUR, IPLOT, IPSIZE, IPRINT, IPSTOl, IPST02, KERROR,MILCOM,MMPROP, 
&NCODE, NCRUSE,  LENVEL) 

REAL  MENDUR 
LOGICAL  LENVEL 
CRMACH-0 . 8 
DECEL-0 . 25 
DELHP-4000.0 
DELMP-0 . 1 
DESLF-3 . 0 
FLFAC-O . 6 
FRFURE-O . 05 
FWGMAX-1 . 2 
HMAXP-40000.0 
HMINP-0 , 0 
MENDUR-0 . 5 
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QMAX-700.0 

RANGE-1000.0 

SMMAXP-0.9 

SMHZNP-0 . 3 

TIMTOl-5 . 0 

TIMT02-1 . 0 

TOL-0.001 

ULTLF-4 . 5 

WCOMBP-0 . 5 

WTEXT-O . 0 

WTTRAP-IOO.O 

WrUEL-5000 . 0 

HKF-1.000 

WKLAND-0.57 

XDESC-80.0 

IBREG-0 

lENDUR-0 

lPLOT-0 

IPSIZE— 3 

lPRINT-0 

IPSTOl-5 

1PST02-2 

KERROR-2 

MILC<»l-0 

MMPROF-1 

NCODE-0 

NCRUSE-2 

LENVEL-. FALSE. 

RETURN 

END 

SUBROUTINE  AERO (DVFLAG, NVFLAG) 


-  AERODYNAMICS  SECTION 


LOGICAL  DVFLAG,  ELLIPC,  ELLIPH,  ELLIPH 
INTEGER  STATUS,  LIB$SPAHN,  AJCAN,  ALELJ,  EN 
DIMENSION  CLO (10) ,  CLOC(IO),  CLOW(IO),  CMO(IO),  YSWP (10) , 
fiFCDRA(lO),  FLDM(IO),  FVCAM(IO),  ALTV(IO),  CLINPT(IO), 
SCDBMB(IO),  CDONPT(IO),  CDSTR(IO),  CDTNK(IO),  CDEXTR(IO), 
fiSMNCDOdO),  SMNBMB(IO),  SMSTRS(IO),  SMTANK(IO),  SMEXTR(IO), 
SITRIM(IO),  ALIN (10),  SMN(IO),  SMNSWP (10) ,  ALTD(6),  XMACH(6) 
REAL  MACHN,  IT,  LDLAND,  LDTO,  MACHl,  MACH2 
CHARACTER  ANS*6,  TITLE* 80 
10  FORMAT (II) 

20  FORMAT (A6) 

30  FORMAT (A80) 

5710  IF (DVFLAG. EQ. .FALSE.)  THEN  !  OPTION  TO  BYPASS  AERO 

5711  STATUS  -  LIB$SPAWH('CLS') 

WRITE (6, 5712) 

5712  FORMAT  (/ 

&  7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  AERODYNAMICS'/ 

&  7X, 'MODULE  ?'//7X, '(1)  YES'/7X, '(2)  NO'// 

6  7X, 'SELECT  1  OR  2 :  ',$) 

READ(5,10,ERR-5711)  NUM 

IF ( (NXm.NE.l) .AND. (NUM.NE.2) )  GOTO  5711 
IF(NUM.EQ.l)  GOTO  5718 

C  -  TRANSFER  AERO  DATA  FROM  (10)  TO  (7) 

REWIND (10) 

5713  READ (10, 20)  ANS 
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IF(ANS.NE.'***  AE')  GOTO  5713 
WRITE (7, 5719) 

5714  READ (10, 30)  TITLE 

IF(TITLE(1:6) .EQ.'***  PR')  RETURN 
WRITE (7, 30)  TITLE 
GOTO  5714 
ENDIF 

5718  WRITE (7, 5719) 

5719  FORMAT ('***  AERODTNAMICS  DATA  **★' ) 

C  -  SET  ALL  AERO  DEFAULTS/GET  OLD  VALUES  FIRST  (FOR  EACH  NAMELIST) 

C  -  THEN  SET  UP  NAMELIST  MENUS. 

IF(DVFLAG.EQ. .TRUE.)  THEN  •  SET  AERO  DEFAULTS 
DO  5720  1-1,10 
CLO(1)-0.0 
CLOC(I)-0.0 
CLOW (I) -0.0 
CMO(1)-0.0 

yswp(i)-o.o 

FCDRA(I)-1.0 

FLDM(I)-1.0 

FVCAM(I)-1.0 

ALTV(I)-0.0 

CLINPT(I)-0.0 

CDBMB(I)-0.0 

CDONPT(I)-0.0 

CDSTR(I)-0.0 

CDTNK(I)-0.0 

CDEXTR(I)-0,0 

SMNCDO(I)-0.0 

SMNBMB(I)-0.0 

SMSTRS(I)-0.0 

SMTANK(l)-0.0 

SMBXTR(l)-0.0 

lTRlM(l)-0 

SMN(I)-0.0 

5720  CONTINUE 
ABOSB-0.15 
ALIN (1) -0.0 
ALIN (2) -3.0 
ALIN (3) -6.0 
ALIN (5) -9.0 
ALIN (6) -12.0 
AL1N(7)-15.0 
ALIN(8)-18.0 
ALIN (9) -21.0 
ALIN (lO) -24.0 
ALMAX-35.0 
AMC-40.0 
BDNOSE-BDMAX 
BTEF-0 . 0 
MACHN-0.75 
RCLMAX-1 . 0 
ROC-0 . 02 
ROCAN-0 . 02 
SFWF-1 . 0 
SPANAC-0 . 0 
SWPMAX-60 . 0 
SWPMIN-0 . 0 
AJCAN-1 
ALELJ-1 
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INORM-1 
ISMNDR-O 
ISUPCR-0 
XTRAP-0 
CSF-0 . 0 
ESSr-1 . 0 
rCDF-1 , 0 
FCDL-1 . 0 
CAND-O . 0 
CGM-0.25 
IT-0.0 
SFLAP-0 . 0 
SM-0.0 
SPAHF-0 . 0 
2CG-0 . 0 
IVCAl^l 
ICOD-1 
lPLOT-1 
NALF-10 
MMDTL-1 
CLLAND— 1 . 0 
CLTO— 1 . 0 
DELFLD-45.0 
DELFTO-45 . 0 
DELLED-30.0 
DELLTO-30.0 
LD  LAND— 1.0 
LDTO— 1.0 
ELLZPC-. FALSE. 

ELLZPH-. FALSE. 

ELLIPW-. FALSE. 

ELSE 

REWIND (10) 

5730  READ (10, 20)  ANS 

IF(ANS.NE.'  SACHA' )  GOTO  5730 

READ (10, 5740)  ABOSB,  ALMAX,  AMC,  BDNOSE,  BTEF,  (CLO (I) , I-l, 10) , 

&  (CLOC (I) ,1-1,10) ,  (CLOW (I) ,1-1,10) ,  (CMO (I) ,1-1,10) ,  MACHN, 

&  RCLMAX,  ROC,  ROCAN,  SFWF,  SMNDR,  (SMNSWP (I) , Z-1, 10) ,  SPANAC, 

&  SWPMAX,  SWPMIN,  (YSWP (I) ,1-1,10) ,  AJCAN,  ALELJ,  ZNOBM,  ISMNDR, 

£  ISUPCR,  ITRAP,  ELLIPC,  ELLIPH,  ELLIPW,  CSF,  ESSF,  FCDF,  CAND, 

&  CFLAP,  Cai,  (FLDM (I)  ,1-1,10)  ,  (FVCAM(I)  ,  I-l,  10)  ,  IT,  SFLAP, 

&  SM,  SPANF,  ZCG,  IVCAM,  ITRIM,  (ALIN (I) , I-l, 10) , 

&  (ALTV (I) ,1-1,10) ,  (CLINFT (I) ,1-1,10) ,  (SMN (1) , I-l, 10) , 

&  ICOD,  IPLOT,  NALF,  NMDTL,  (CDBMB (I) , I-l, 10) ,  (CDSTR (I) , I-l, 10) , 

£  (CDTNK (I) ,1-1,10) ,  (CDEXTR (I) ,1-1,10) ,  (SMNBMB (I) , I-l, 10) , 

£  (SMSTRS(X),I-1,10),  (SMTANK(I),I-1,10),  (SMEXTR (I) , I-l, 10) , 

£  ICDO,  CLLAND,  CLTO,  DELFLD,  DELFTO,  DELLED,  DELLTO,  LDLAND, 

£  LDTO 

5740  FORMAT(11X,F6.3,9X,F6.3,7X,F6.3/12X,F6.3,7X,F5.3/9X,10 (F5.3,1X) / 

£  lOX, 10 (F5 . 3, IX) /lOX, 10 (F5 . 3, IX) /9X, 10 (F5 . 3, IX) 

£  /11X,F6.3,10X,F6.3,6X,F5.3/ 

£  11X,F5.3, 9X,r5.3,llX,F5.3/12X,10(F5.3,lX) / 

£  12X,F6.3,9X,F6.3,9X,F6.3/ 

£  lOX,  10 (F6.3, IX) /IIX, II, 14X, II, 14X, 11/12X, II, 14X, II, 13X, 11/ 

£  12X,L1,14X,L1, 14X,L1/// 

£  9X,F5.3,11X,F5.3,10X,F5.2///10X,F6.3,10X,F6.3,7X,F5.3/ 

£  lox, 10 (F6 . 3, IX) /iix, 10 (re .3, ix) /ex, re. 3, i2x, n . 2, 5x, re . 3/ 

£  lix, F6.2, 7X, F5 .2, 12X, Il/llX, 10 (II, IX) ///lOX, 10 (F4 . 1, IX) / 

£  10X,10(F6.0,1X)/ 

fi  12X,10(F6.3,1X)/9X,10(F5.3,1X) /lOX, II, 15X, II, 13X, I2/11X, 12/// 
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&  iix, 10 (re . 3, IX) /iix, lO (re . 3, ix) /iix, lO (re . 3,  ix) / 

&  12X, 10 (re . 3, IX) /12X, lO (rs . 3, ix) / 

i  12X, 10 (rs .3, IX) /12X, 10 (rs .3, IX) /12X, 10 (rs .3, IX) / 

£  10X,ll///12X,r6.3,7X,r6.3, 

fi  iix,re.3/i2x,re.3,9x,r6.3,9x,re.3/i2x,re.3,7x,re.3) 

EHDXr 

c - 

C  -  AERO  PAGE  1 

5760  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (e,57e5)  AROSE,  ALMAX,  AMC,  BDMOSE,  BTEP,  RCLMAX,  SPWT 
57 eS  rORMAT(/ 

fi7X, AERO  PAGE  1  **'// 

&7X,' (1)  RATIO  or  BODY  BASE  ARlUl  TO  MAXIMUM  BODY  AREA. . ' , re . 3/ 


&7X,M2)  angle  or  ATTACK  rOR  CLMAX  (DEGREES) . ',re.3/ 

e7X,  '  (3)  MAXIMUM  ANGLE  Or  ATTACK  (DEGREES) . ',re.3/ 

&7X, ' (4)  WIDTH  or  THE  rUSELAGE  AT  THE  NOSE  (OR  AT  THE'/ 

£7X,  '  CANARDS  IT  PRESENT)  (PEET) . ',re.3/ 

£7X, '(5)  BOAT-TAIL  EXPOSURE  r ACTOR . ',r5.3/ 

£7X, ' (e)  CLMAX  SCALING  PACTOR  POR  USE  WITH  PLAPS . ',re,3/ 

47X, '(7)  LAMINAR-TURBULENT  WEIGHTING  PACTOR . ',r5.3// 


47X,' SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
R£AD(5,10,ERR-57e0)  NUM 
IP(NUM.EQ.O)  GOTO  58e0 

GOTO  (5770,  5780,  5790,  5800,  5810,  5820,  5830)  ,NUM 
GOTO  57e0 
5770  WRITE (e,  5775) 

5775  rORMAT(/7X, 'ENTER  THE  RATIO  OP  THE  BODY  BASE  AREA  TO  THE'/ 

47X, 'MAXIMUM  BODY  AREA:  ',$) 

READ(5,577e,ERR-5770)  ABOSB 

5776  rORMAT(r6.3) 

ir( (ABOSB. GT, 0.5) .OR. (ABOSB.lt. 0.0) )  GOTO  5770 
GOTO  5760 
5780  WRITE (6, 5785) 

5785  rORMAT(/7X, 'ENTER  THE  ANGLE  OP  ATTACK  AT  WHICH'/ 

47X, 'CLMAX  OCCURS  (DEGREES):  ',$) 

READ (5, 5776,  ERR-5780)  ALMAX 

ir( (ALMAX.LE.0.0) .OR. (ALMAX.6T.60.0))  GOTO  5780 
GOTO  5760 
5790  WRITE (6, 5795) 

5795  rORMAT(/7X, 'ENTER  THE  MAXIMUM  ANGLE  OP  ATTACK  (DEGREES):  ',$) 
READ (5, 5776,  ERR-5790)  AMC 

IP ( (AMC.LE.0.0) .OR. (AMC.GT.60.0) )  GOTO  5790 
GOTO  5760 
5800  WRITE (6,  5805) 

5805  PORMAT(/7X, 'ENTER  THE  WIDTH  OP  THE  PUSELAGE  AT  THE  NOSE  OR'/ 
47X, 'AT  THE  CANARD  LOCATION  (IP  IT  EXISTS)  (PEET) :  ',$) 
READ(5,5776,ERR-5800)  BDNOSE 
IP(BDNOSE.LE.O.O)  GOTO  5800 
GOTO  5760 
5810  WRITE (6, 5815) 

5815  PORMAT(/7X, 'ENTER  THE  BOAT  TAIL  EXPOSURE  PACTOR  (FOR  WING  OR'/ 
47X, 'FUSELAGE  PODS  ONLY).  (IF  THERE  ARE  3  PODS  WITH  ONE  OP'/ 
47X, 'THEM  INTERNAL  TO  THE  FUSELAGE,  THEN  THE  BOAT  TAIL'/ 

47X, 'EXPOSURE  FACTOR  IS  .667):  ',$) 

READ (5,5816,ERR-5810)  BTEP 

5816  FORMAT (P5. 3) 

IP ( (BTEP. LT. 0.0) .OR. (BTEP. GT. 1.0) )  GOTO  5810 
GOTO  5760 
5820  WRITE (6, 5825) 
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5825  FORMAT (/7X, 'ENTER  THE  CLMAX  SCALE  FACTOR  FOR  USE  WITH'/ 
fi7X, 'FLAPS:  ',$) 

READ(5,5776,ERR-5820)  RCLMAX 
ZF(RCLMAX.LE.O.O)  GOTO  5820 
GOTO  5760 
5830  WRITE (6, 5835) 

5835  FORMAT (/7X, 'ENTER  THE  LAMINAR-TURBULENT  SKIN  FRICTION'/ 
fi7X, 'WEIGHTING  FACTOR:  ',$) 

READ(5,5816,ERR-5830)  SFWF 

IF( (SFWF.GT.1.0) .OR. (SFWF.LT.0.0) )  GOTO  5830 
GOTO  5760 


AERO  PAGE  2 


5860  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 5865)  (SMNSWP (I) , I-l, 10) ,  (CLO (I) , I-l, 10) , 

6 (CLOC(I) ,1-1,10) ,  (CLOW (1) ,1-1,10) ,  (CMO (I) ,1-1,10) , 
fi(YSWP(I),l-l,10) 

5865  FORMAT (/ 

67X, '**  AERO  PAGE  2  **'// 

47X, '(1)  REFERENCE  MACH  NUMBER  ARRAY:  ' , 2  (F5 . 3, ' , ' ) / 

4  11X,7(F5.3,','),F5.3// 

47X, ' (2)  CL  AT  ZERO  AOA  FOR  BODY:  ' , 2 (F5 . 3, ' , ' ) / 

4  11X,7(F5.3,','),F5.3// 

47X, '(3)  CANARD  CL  AT  ZERO  AOA:  ' , 2  (F5 . 3, ' , ' ) / 

4  11X,7(F5.3,','),F5.3// 

47X, '(4)  WING  CL  AT  ZERO  AOA:  ' , 2 (F5 . 3, ' , ' ) / 

4  11X,7(F5.3,','),F5.3// 

47X,'(5)  ZERO  LIFT  PITCHING  MOMENT:  ' , 2 (F5 . 3, ' , ' ) / 

4  11X,7(F5.3,',') ,F5.3// 

47X, ' (6)  WING  SWEEP  ANGLES  (VARIABLE  SWEEP  ONLY):  ', 

4  2(F6.3,',')/11X,7(F6.3,','),F6.3/// 

4 7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(S,10,ERR-5860)  NUM 
IF(NUM.EQ.O)  GOTO  5940 

GOTO  (5880,  5890,  5900,  5910,  5920,  5930)  ,NUM 
GOTO5860 

5880  ffRITE(6,5885) 

5885  FORMAT (/7X, 'ENTER  THE  REFERENCE  MACH  NUMBER  ARRAY.  PUT  A  ","'/ 
4 7X, 'BETWEEN  EACH  NUMBER.  (MAXIMUM  OF  TEN  NUMBERS)  .'/ 

4'  ENTER:  ',$) 

READ(5,5886,ERR-5880)  (SMNSWP (I) ,1-1, 10) 

5886  FORMAT (10F6. 3) 

DO  5887  1-1,10 

IF((SMNSWP(I) .LT.0.0) .OR. (SMNSWP(I) .GT.3.0))  GOTO  5880 

5887  CONTINUE 
GOTO  5860 

5890  WRITE (6, 5895) 

5895  FORMAT (/7X, 'ENTER  THE  ARRAY  FOR  THE  BODY  CL  AT  ZERO  AOA.  PUT'/ 

47X, 'A  BETWEEN  EACH  NUMBER.  (MAXIMUM  OF  TEN  NUMBERS).'/ 

6^  SN7ER *  ^  $) 

READ(5,5886,ERR-5890)  (CLO (I) , 1*1, 10) 

DO  5896  1-1,10 

1F( (CLO(I) .LT.0.0) .OR. (CLO(I) .GT.1.0) )  GOTO  5890 

5896  CONTINUE 
GOTO  5860 

5900  ?»RITE(6,5905) 

5905  FORMAT (/7X, 'ENTER  THE  ARRAY  FOR  THE  CANARD  CL  AT  ZERO  AOA.'/ 
47X, 'PUT  A  BETWEEN  EACH  NUMBER.  (MAXIMUM  OF  TEN  NUMBERS) .'/ 

4'  ENTER:  ',$) 
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READ (5, 5886,ERR-5900)  (CLOC (I) , I-l, 10) 

DO  5906  1-1,10 

ir((CLOC(I) .LT.0.0) .OR. (CLOC(I) .GT.1.0))  GOTO  5900 
5906  COHTINUB 
GOTO  5860 
5910  WRITE (6, 5915) 

5915  FORMAT (/7X, 'ENTER  THE  ARRAY  FOR  THE  WING  CL  AT  ZERO  AOA.  PUT'/ 
&7X, 'A  BETWEEN  EACH  NUMBER.  (MAXIMUM  OF  TEN  NUMBERS) .'/ 

ENTSRs  ^  $) 

READ (5, 5886, ERR-5910)  (CLOW (I) , I-l, 10) 

DO  5916  1-1,10 

IF( (CLOW(l) .LT. 0.0) .OR. (CLOW(I) .GT.1.0) )  GOTO  5910 

5916  CONTINUE 
GOTO  5860 

5920  WRITE (6, 5925) 

5925  FORMAT (/7X, 'ENTER  THE  ARRAY  FOR  THE  ZERO  LIFT  PITCHING'/ 

S7X, 'MOMENT.  PUT  A  BETWEEN  EACH  NUMBER.  (MAXIMUM  OF'/ 
fi7X, 'TEN  NUMBERS) .'/'  ENTER:  ',$) 

READ(5,5886,ERR-5920)  (CMO (I) , I-l, 10) 

DO  5926  1-1,10 

IF ( (CMO(I) .LT. 0.0) .OR. (CMO(I) .GT.1.0) )  GOTO  5920 

5926  CONTINUE 
GOTO  5860 

5930  WRITE (6, 5935) 

5935  FORMAT (/7X, 'ENTER  THE  ARRAY  FOR  THE  SWEEP  ANGLES  FOR  A'/ 

&7X, 'VARIABLE  SWEEP  WING.  PUT  A  BETWEEN  EACH  NUMBER.'/ 
fi7X,' (MAXIMUM  OF  TEN  NUMBERS).'/'  ENTER:  ',$) 

READ (5, 5936, ERR-5930)  (YSWP (I) , I-l, 10) 

5936  FORMAT (10F7. 3) 

DO  5937  1-1,10 

1F((YSWP<I) .LT.0.0) .OR. (YSWP(I) .GT.60.0))  GOTO  5930 

5937  CONTINUE 
GOTO  5860 


C - 

C  -  AERO  PAGE  3 

5940  STATUS  -  LIBSSPAWN (' CLS' ) 

WRITE (6, 5945)  ELLIPW,  INORM,  MACHN,  SWPMAX,  SWPMIN 
5945  FORMAT (/ 

47X, AERO  PAGE  3  (VARIABLE  SWEEP  £  OBLIQUE  WINGS)  **'// 


47X, '(1)  VARIABLE  WING  SWEEP  FLAG . ',L1/ 

£7X, '  (T  -  WING  IS  VARIABLE  SWEEP)'/ 

fi7X, '  (F  -  WING  IS  NOT  VARIABLE  SWEEP)'/ 

S7X,  '  (2)  NORMAL  COMPONENT  MACK  NUMBER  CODE . ',11/ 

&7X, '  (0  -  SWEEP  WING  TO  KEEP  NORMAL  COMPONENT  CONST) ' / 

£7X,  '  (1  -  DO  NOT  CALULATE  NORMAL  COMPONENT)'/ 

S7X,  '  (3)  DESIRED  NORMAL  COMPONENT  OF  MACH  NUMBER . ',F6.3/ 

&7X, ' (4)  MAXIMUM  SWEEP  FOR  NORMAL  COMPONENT  MACH  NUMBER'/ 

£7X,  '  CALCULATIONS  (DEGREES) . ',F6.3/ 

£7X,  '  (5)  MINIMUM  SWEEP  FOR  NORMAL  COMPONENT  MACH  NUMBER'  / 

67X,  '  CALCULATIONS  (DEGREES) . ',F6.3// 


£7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
REAO(5,10,ERR-5940)  NUM 
IF(NUM.EQ.O)  GOTO  6050 

GOTO  (5960,  5970,  5980,  5990,  6000)  ,NUM 
GOTO  5940 
5960  WRITE (6, 5965) 

5965  FORMAT (/7X, 'ENTER  THE  VARIABLE  WING  SWEEP  FLAG:  ',$) 
READ(5,5967,ERR-5960)  ELLIPW 
5967  FORMAT (LI) 
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GOTO  5940 
5970  WRITE (6,5975) 

5975  FORMAT (/7X, 'ENTER  THE  NORMAL  COMPONENT  MACH  NUMBER'/ 
fi7X, ' CALCULATION  CODE'/ 

fi7X, ' (0  -  ACSYNT  WILL  SWEEP  THE  WING  TO  KEEP  THE  NORMAL'/ 
t7X, '  COMPONENT  OF  THE  MACH  NUMBER  CONSTANT)'/ 

t7X, ' (1  -  DO  NOT  CALCULATE  THE  NORMAL  CC»lPONENT  OF  THE  MACH'/ 
«7X, '  NUMBER):  ',$) 

READ(5,10,ERR-5970)  INORM 

IF( (INORM.NE.O) .AND. (INORM.NE.l))  GOTO  5970 
GOTO  5940 
5980  WRITE (6, 5985) 

5985  FORMAT </7X, 'ENTER  THE  DESIRED  NORMAL  COMPONENT  OF  THE  MACH'/ 
fi7X, 'NUMBER:  ',$) 

REAO(5,5776,ERR-5980)  MACHN 

IF((MACHN.LE.0.0) .OR. (MACHN.GT.3.0))  GOTO  5980 
GOTO  5940 
5990  WRITE (6, 5995) 

5995  FORMAT (/7X, 'ENTER  THE  MAXIMUM  ALLOWABLE  SWEEP  FOR  THE  NORMAL'/ 
fi7X, ' COMPONENT  CALCULATIONS  (DEGREES) :  '  ,  $) 
READ(5,5776,ERR-5990)  SWPMAX 

IF( (SNPMAX.lt. 0.0) .OR. (SWPMAX.GT. 60.0) )  GOTO  5990 
GOTO  5940 
6000  WRITE (6, 6005) 

6005  FORMAT (/7X, 'ENTER  THE  MINIMUM  ALLOWABLE  WING  SWEEP  FOR  THE'/ 
&7X, 'NORMAL  COMPONENT  CALCULATIONS  (DEGREES):  ',$) 

READ (5,5776,ERR-6000)  SWPMIN 

IF ( (SWPMIN.lt. 0.0) .OR. (SWPMIN.GT. 60.0) )  GOTO  6000 
GOTO  5940 

C - 

c  -  aero  page  4 

6050  STATUS  -  LIB$SPAWN (' CLS' ) 

WRITE (6, 6055)  ALELJ,  ROC,  AJCAN,  ROCAN,  SPANAC,  ISUPCR,  ITRAP 


6055  FORMAT  (/ 

S7X, '**  AERO  PAGE  4  **'// 

47X,  '  (1)  WING  AIRFOIL  SECTION  CODE . ',11/ 

S7X,  '  (2)  WING  LEADING  EDGE  RADIUS/CHORD  RATIO . ',F5.3/ 

S7X, '  (FOR  WING  AIRFOIL  SECTION  CODE  5  ONLY) ' / 

i7X,  '  (3)  CANARD  AIRFOIL  SECTION  CODE . ',11/ 

&7X, '(4)  CANARD  LEADING  EDGE  RADIUS/CHORD  RATIO . ',F5.3/ 

S7X, '  (FOR  CANARD  AIRFOIL  SECTION  CODE  5  ONLY) ' / 

&7X, '(5)  DISTANCE  BETWEEN  THE  TWIN  NACELLES  (FEET) . . . ' , F6 . 3/ 
S7X, '  (USED  FOR  CANARD  PLACEMENT)'/ 

47X,  '  (6)  SUPERCRITICAL  WING  FLAG . ',11/ 

fi7X, '  (1  -  WING  IS  SUPERCRITICAL)'/ 

&7X,  '  (0  -  WING  IS  NOT  SUPERCRITICAL)'/ 

S7X,'(7)  BODY  CROSS-SECTION  CODE . ',11/ 

fi7X, '  (0  -  CIRCULAR  BODY)'/ 

&7X,'  (1  -  TRAPEZOIDAL  BODY)'// 

&7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,10,ERR-6050)  NUM 
IF(NUM,EQ.0)  GOTO  6150 


GOTO  (6070,  6080,  6090,  6100,  6110,  6120,  6130)  ,NUM 
GOTO  6050 
6070  WRITE (6, 6075) 

6075  FORMAT (/7X, 'ENTER  THE  WING  AIRFOIL  SECTION  CODE'/ 
47X, ' (1  -  SHARP/NEAR  SHARP  AIRFOIL)'/ 

&7X, ' (2  -  230-XX  AND  00-XX  AIRFOILS)'/ 

&7X, ' (3  -  6-SERIES  AIRFOIL)'/ 
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fi7X,  M4  -  WHITCOMB  SUPERCRITICAL  AIRFOIL  ('/ 

67X, ' (5  -  LEADING  EDGE  RADIUS/CHORD  RATIO  SPECIFIED) :  ',$) 
READ(5,10,ERR-6070)  ALELJ 

IF ( (ALELJ.lt. 1) .OR. (ALELJ.GT. 5) )  GOTO  6070 
GOTO  6050 
6080  WRITE (6, 6085) 

6085  FORMAT (/7X, 'ENTER  THE  WING  LEADING  EDGE  RADIUS/CHORD  RATIO: 

6$) 

READ(5,5816,ERR-6080)  ROC 

IF( (ROC.LE.0.0) .OR. (ROC.6T.0.5) )  GOTO  6080 
GOTO  6050 
6090  WRITE (6, 6095) 

6095  FORMAT (/7X, 'ENTER  THE  CANARD  AIRFOIL  SECTION  CODE'/ 

&7X, ' (1  -  SHARP /NEAR  SHARP  AIRFOIL)'/ 

47X, ' (2  -  230-XX  AND  00-XX  AIRFOILS) ' / 

S7X, ' (3  -  6-SERIES  AIRFOIL)'/ 

fi7X, ' (4  -  WHITCOMB  SUPERCRITICAL  AIRFOIL ('/ 

&7X,' (5  -  LEADING  EDGE  RADIUS/CHORD  RATIO  SPECIFIED) :  ',$) 
READ(5,10,ERR*6090)  AJCAN 

IF ( (AJCAN.lt. 1) .OR. (AJCAN.GT. 5))  GOTO  6090 
GOTO  6050 
6100  WRITE (6, 6105) 

6105  FORMAT (/7X, 'ENTER  THE  CANARD  LEADING  EDGE  RADIUS/CHORD'/ 

S7X, 'RATIO:  ',$) 

R£AD(5,5816,ERR«6100)  ROCAN 

IF( (ROCAN.LE.0.0) .OR. (ROCAN.GT.0.5) )  GOTO  6080 
GOTO  6050 
6110  WRITE (6, 6115) 

6115  FORMAT (/7X, 'ENTER  THE  DISTANCE  BETWEEN  THE  OUTSIDES  OF  THE'/ 

C7X, 'OF  THE  TWIN  NACEJLES  THAT  THE  CANARDS  ARE  MOUNTED  ON.'/ 
fi7X,' (IF  APPLICABLE)  (FEET):  ',$) 

READ(5,5776,BRR»6110)  SPANAC 
IF (SPANAC.lt. 0.0)  GOTO  6110 
GOTO  6050 
6120  WRITE (6, 6125) 

6125  FORMAT (/7X, 'ENTER  THE  CUPERCRITICAL  WING  FLAG.'/ 

&7X, ' (0  -  WING  IS  NOT  SUPERCRITICAL)'/ 

*7X, ' (1  -  WING  IS  SUPERCRITICAL):  ',$) 

READ(5,10,ERR-6120)  ISUPCR 

IF ( (ISUPCR.NE.O) .AND. (ISUPCR.NE.l) )  GOTO  6120 
GOTO  6050 
6130  WRITE (6, 6135) 

6135  FORMAT (/7X, 'ENTER  THE  BODY  CROSS-SECTION  CODE.'/ 

S7X, ' (0  -  CIRCULAR  BODY)'/ 

67X, ' (1  -  TRAPEZOIDAL  BODY);  ',$) 

READ(5,10,ERR-6130)  ITRAP 

IF ( (ITRAP.NE.O) .AND. (ITRAP.NE.l) )  GOTO  6130 
GOTO  6050 

C - 

C  -  AERO  PAGE  5 

C - 

6150  STATUS  ■  LIB$ SPAWN (' CLS' ) 

WRITE (6, 6155)  CSF,  FCDF,  CAND,  CFLAP,  SFLAP,  SPANF,  CGM,  SM,  ZCG, 


«1T 

6155  FORMAT (/ 

fi7X, '**  AERO  PAGE  5  **'// 

&7X,'  (1)  POD  COWL  EXPOSURE  FACTOR . ',F5.3/ 

S7X,  '  (2)  FRICTION  DRAG  MULTIPLYING  FACTOR . ',F5.2/ 

47X,'(3)  CANARD  INCIDENCE  (DEGREES) . ',F6.3/ 

S7X,'(4)  AVERAGE  FLAP  CHORD  (FEET) . ',F6.3/ 
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fi7X, '(5)  TOTAL  AREA  OF  BOTH  WIMG  FLAPS  (FT2) . •  ,ri  .2/ 

47X, ' (6)  TOTAL  SPAN  OF  FLAPS  FOR  TRIMMING  (FEET) - ',F6.2/ 

fi7X, ' (7)  DESIRED  LOCATION  OF  CG  (GIVEN  AS  A  FRACTION'/ 

S7X,'  OF  WING  CHORD) . ',F5.3/ 

fi7X,  '  (8)  STATIC  MARGIN  FACTOR  FOR  CG . ',F6.3/ 

fi7X, ' (9)  HEIGHT  OF  CG  ABOVE  THE  FUSELAGE  CENTERLINE'/ 

t7X,  '  (FEET) . ',F5.2/ 

&7X, '(10)  HORIZONTAL  TAIL  INCIDENCE  (DEGREES) . ',F6.3// 

«7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,6160,ERR-6150)  NUM 
6160  FORMAT (12) 

IF(NUM.EQ.O)  GOTO  6280 


GOTO  (6170,  6180,  6190,  6200,  6210,  6220,  6230,  6240,  6250, 
46260),  NUM 
GOTO  6150 
6170  WRITE (6, 6175) 

6175  FORMAT (/7X, 'ENTER  THE  POD  COWL  EXPOSURE  FACTOR.  (IF  THERE  '/ 
«7X, 'ARB  3  PODS  ON  THE  DESIGN  BUT  ONE  OF  THEM  IS  FULLY  BURIED'/ 
47X, 'THEN  THE  EXPOSURE  FACTOR  IS  .667):  ',$) 
READ(5,5816,ERR-6170)  CSF 
IF( (CSF.LT.0.0) .OR. (CSF.GT.1.0) )  GOTO  6170 
ESSF-CSF 
GOTO  6150 
6180  WRITE (6, 6185) 

6185  FORMAT (/7X, 'ENTER  THE  FRICTION  DRAG  MULTIPLYING  FACTOR.'/ 
t7X, '(1.0  -  STANDARD  SURFACE  ROUGHNESS):  ',$) 

REAO(5,6186,ERR-6180)  FCDF 

6186  FORMAT (F5. 2) 

1F( (FCDF. LT. 0.0) .OR. (FCDF. GT. 2.0))  GOTO  6180 
GOTO  6150 
6190  WRITE (6, 6195) 

6195  FORMAT (/7X, 'ENTER  THE  CANARD  ANGLE  OF  INCIDENCE  (DEGREES):  ', 
4$) 

READ (5,5776,ERR-6190)  CAND 

IF( (CAND.LT.0.0) .OR. (CAND.GT.10.0) )  GOTO  6190 
GOTO  6150 
6200  WRITE (6, 6205) 

6205  FORMAT (/7X, 'ENTER  THE  AVERAGE  FLAP  CHORD  (FEET):  ',$) 
R£AD(5,5776,BRR-6200)  CFLAP 
IF (CFLAP.lt. 0.0)  GOTO  6200 
GOTO  6150 
6210  WRITE (6, 6215) 

6215  FORMAT (/7X, 'ENTER  THE  TOTAL  AREA  OF  THE  WING  FLAPS  (FT2) :  ',$) 
READ(5,6216,ERR-6210)  SFLAP 

6216  FORMAT (F7. 2) 

IF (SFLAP.lt. 0.0)  GOTO  6210 
GOTO  6150 
6220  WRITE (6, 6225) 

6225  FORMAT (/7X,' ENTER  THE  TOTAL  SPAN  OF  THE  FLAPS  (FEET):  ',$) 
READ(5,6226,ERR-6220)  SPANF 

6226  FORMAT (F6. 2) 

IF (SPANF.lt. 0.0)  GOTO  6220 
GOTO  6150 
6230  WRITE (6, 6235) 

6235  FORMAT (/7X, 'ENTER  THE  DESIRED  LOCATION  OF  THE  CG  AS  A'/ 

S7X, 'FRACTION  OF  THE  MEAN  AERODYNAMIC  CHORD:  ',$) 
READ(5,5816,ERR-6230)  COl 

IF ( (CGM.LT.0.0) .OR. (CGM.GT.1.0) )  GOTO  6230 
GOTO  6150 
6240  WRITE (6, 6245) 


6245  FORMAT (/7X, 'ENTER  THE  CG  STATIC  MARGIN  FACTOR:  ',$) 
READ(5,5776,ERR-6240)  SM 
ir( (SM.LT.0.0) .OR. (SM.GT.1.0) )  GOTO  6240 
GOTO  6150 

6250  WRITE (6, 6255) 

6255  FORMAT (/7X, 'ENTER  THE  HEIGHT  OF  THE  CG  ABOVE  THE  FUSELAGE'/ 
67X, ' CENTERLINE  (FEET):  ',$) 

READ(5,6166,ERR-6250)  ZCG 
IF(ZCG.LT.O.O)  GOTO  6250 
GOTO  6150 

6260  WRITE (6, 6265) 

6265  FORMAT (/7X, 'ENTER  THE  ANGLE  OF  INCIDENCE  OF  THE  HORIZONTAL'/ 
£7X, 'TAIL  (DEGREES):  ',$) 

READ(5,5776,ERR-6260)  IT 

ir( (IT.LT.0.0) .OR. (IT.GT.10.0) )  GOTO  6260 

GOTO  6150 

C  -  AERO  PAGE  6 

C - 

6280  STATUS  -  LIBS SPAWN ('CLS' ) 

WRITE (6, 6285)  (SMN(l) ,1-1,10) ,  NMDTL,  (ALTV (I) , 1-1, 10) , 
&(CLINPT (I) ,1-1,10) 

6285  FORMAT (/ 

47X, AERO  PAGE  6  **'// 

fi7X, '(1)  MACH  NUMBERS  FOR  DETAILED  AERODYNAMICS  OUTPUT:  ',r5.3, 
4','/llX,8(F5.3,',') ,r5.3// 

&7X, ' (2)  TOTAL  NUMBER  OF  REQUESTED  MACH  NUMBERS  (ABOVE) ..',12// 
i7X, ' (3)  ALTITUDES  FOR  DETAILED  AERODYNAMICS  OUTPUT:  ',F7.1,',' 
S,F7.1,','/10X,7(F7.1,',') ,F7.1// 

47X, '(4)  LIFT  COEFFICIENTS  FOR  DETAILED  OUTPUT:  ',F6.3,','/ 
611X,8(F6.3,','),F6.3// 

47X,' SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,10,ERR-6280)  NUM 
IF(NUM.EQ.O)  GOTO  6360 
GOTO  (6300,  6310,  6320,  6330)  ,NUM 
GOTO  6280 

6300  WRITE (6, 6305) 

6305  FORMAT (/7X,' ENTER  THE  DESIRED  MACH  NUMBERS  FOR  DETAILED'/ 

4 7X, 'AERODYNAMICS  OUTPUT.  PUT  A  BETWEEN  EACH  NUMBER.'/ 

47X, ' (A  MAXIMUM  OF  TEN  NUMBERS):'//'  ENTER:  ',$) 

READ (5, 6306,ERR-6300)  (SMN (I) , X-1, 10) 

6306  FORMAT (10F6. 3) 

DO  6307  1-1,10 

1F( (SMN(I) .LT.0.0) .OR. (SMN(I) .GT.3.0) )  GOTO  6300 

6307  CONTINUE 
GOTO  6280 

6310  WRITE (6, 6315) 

6315  FORMAT (/7X, 'ENTER  THE  TOTAL  NUMBER  OF  MACH  NUMBERS  THAT  ARE'/ 
47X, 'ENTERED  INTO  THE  ARRAY  (DISREGARD  TRAILING  ZEROS):  ',$) 
READ(5,6160,ERR-6310)  NMDTL 
IF( (NMDTL. LT.O) .OR. (NMDTL. GT. 10))  GOTO  6310 
GOTO  6280 

6320  WRITE (6, 6325) 

6325  FORMAT (/7X, 'ENTER  THE  ALTITUDES  DESIRED  FOR  THE  DETAILED'/ 

4 7X, 'AERODYNAMICS  OUTPUT  (UP  TO  10).  PUT  A  BETWEEN  EACH'/ 
47X, 'NUMBER.'//'  ENTER:  ',$) 

READ (5, 6326,ERR-6320)  (ALTV (I) , I-l, 10) 

6326  FORMAT (lore. 1) 

DO  6327  1-1,10 

IF( (ALTV(I) .LT.O. 0) .OR. (ALTV(I) .GT. 99999. 0) )  GOTO  6320 
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6327  CONTINUE 
GOTO  6280 
6330  WRITE (6, 6335) 

#  6335  FORMAT (/7X, 'ENTER  THE  LIFT  COEFFICIENTS  DESIRED  FOR  THE'/ 

S7X, 'DETAILED  AERODYNAMICS  OUTPUT.  PUT  A  "  BETWEEN  EACH'/ 
&7X, 'NUMBER.  (A  MAXIMUM  OF  TEN  NUMBERS):'//'  ENTER:  ',$) 
READ (5, 6336, ERR-6330)  (CLINPT(I) , 1-1, 10) 

6336  FORMAT (10F7. 3) 

DO  6337  1-1,10 

IF ( (CLINPT(I) .LT.0.0) .OR. (CLINPT(I) .GT.8.0) )  GOTO  6330 

6337  CONTINUE 
GOTO  6280 


-  AERO  PAGE  7 


6360  STATUS  -  LIB$SPA?«N  (' CLS' ) 

WRITE (6, 6365)  CDBMB(l),  CDSTR(l),  CDTNK(l),  CDEXTR(l) 


6365  FORMAT  (/ 

&7X, AERO  PAGE  7  **'// 

i7X, '  (1)  TOTAL  DRAG  DUE  TO  EXTERNAL  BOMBS  {FT2) . ',F6.3/ 

«i7X, '(2)  TOTAL  DRAG  DUE  TO  EXTERNAL  STORES  (FT2)  .  .  .  ',F€.3/ 

S7X,  '  (3)  TOTAL  DRAG  DUE  TO  DROP  TANKS  (FT2) .  ,F6.3/ 


S7X, ' (4)  TOTAL  DRAG  DUE  TO  ADDITIONAL  ITEMS  (FT2) _ ',F6.3// 

fi7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,10,ERR-6360)  NUM 
IF(NUM.EQ.O)  GOTO  6450 
GOTO  (6380,  6390,  6400,  6410)  ,NUM 
GOTO  6360 
6380  WRITE (6, 6385) 

6385  FORMAT {/7X, 'ENTER  THE  DRAG  DUE  TO  EXTERNAL  BOMBS  (FT2) :  ',$) 
READ (5,5776,ERR-6380)  CDBMB{1) 

IF (CDBMB(l) .LT.0.0)  GOTO  6380 
GOTO  6360 
6390  WRITE (6, 6395) 

6395  FORMAT (/7X, 'ENTER  THE  DRAG  DUE  TO  EXTERNAL  STORES  (FT2) :  ',$) 
READ(5,5776,ERR-6390)  CDSTR(l) 

IF (CDSTR(l) .LT.0.0)  GOTO  6390 
GOTO  6360 
6400  WRITE (6, 6405) 

6405  FORMAT (/7X, 'ENTER  THE  DRAG  DUE  TO  DROP  TANKS  (FT2) :  ',$) 

READ (5,5776,ERR-6400)  CDTNK(l) 

IF (CDTNK(l) .LT.0.0)  GOTO  6400 
GOTO  6360 
6410  WRITE (6, 6415) 

6415  FORMAT (/7X, 'ENTER  THE  DRAG  DUE  TO  ADDITIONAL  ITEMS  (SUCH'/ 

<i7X,'AS  FLIR  PODS,  PYLONS,  ETC...)  (FT2)  .  (IF  THE  NAVY  MODULE'/ 

47X,'IS  SELECTED,  INPUT  THE  GEAR  DOWN  DRAG  HERE):  ',$) 
READ(5,5776,ERR-6410)  CDEXTR(l) 

-  IF  THE  NAVY  MODULE  WILL  BE  CALLED,  THIS  WILL  BE  USED  FOR 

-  THE  GEAR  DOWN  DRAG.  THE  SECOND  VALUE  OF  CDEXTR  AND  SMEXTR 

-  ARE  USED  TO  PREVENT  THE  SCALING  FACTOR  FROM  OCCURING  WHEN 

-  USING  THE  SNODGRASS  METHOD.  THE  GEAR  DRAG  WILL  ONLY  BE  APPLIED 

-  WHEN  THE  MACH  NUMBER  IS  BETWEEN  0.0  AND  0.25 

IF  (I  ’/FLAG .  EQ .  .  TRUE . )  THEN 
CDEXTR ( 2 ) -CDEXTR ( 1 ) 

SMEXTR (1) -0.2 
SMEXTR (2) -0.3 
END  IF 

IF (CDEXTR(l) .LT.0.0)  GOTO  6410 
GOTO  6360 
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-  AERO  PAGE  8 


6450  STATUS  ■  LIB$ SPAWN (' CLS' ) 

WRITE (6, 6455)  CLLANU,  CLTO,  DELFLD,  DELFTO,  DELLED,  DELLTO, 


fiLOLAND,  IJ>TO 
6455  FORMAT (/ 

&7X, '**  AERO  PAGE  8  **'// 

47X,  '  (1)  CL  MAX  FOR  LANDING . ',F6.3/ 

&7X,  '  (2)  CL  MAX  FOR  TAKE-OFF . ',F6.3/ 

fi7X, '(3)  TRAILING  EDGE  FLAP  ANGLE  FOR  LANDING  (DEG) _ ',F6.3/ 

47X,  M4)  TRAILING  EDGE  FLAP  ANGLE  FOR  TAKE-OFF  (DEG)  .  .  .  '  ,  F6 . 3/ 

&7X, ' (5)  LEADING  EDGE  SLAT  ANGLE  FOR  LANDING  (DEG) . ',F6.3/ 

&7X, ' (6)  LEADING  EDGE  SLAT  ANGLE  FOR  TAKE-OFF  (DBG) _ ',F6.3/ 

«7X,  '  (7)  L/D  RATIO  FOR  LANDING . ',F6.3/ 

&7X, '  (8)  L/D  RATIO  FOR  TAKE-OFF . ',F6.3// 


S7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,10,ERR-6450)  NUM 
IF(NUM.EQ.O)  GOTO  6550 

GOTO  (6470,  6480,  6490,  6500,  6510,  6520,  6530,  6540)  ,NUM 
GOTO  6450 
6470  WRITE (6, 6475) 

6475  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  CL  MAX'/ 

i;7X, 'DURING  LANDING  (-1.0  -  CALCULATED  INTERNALLY):  ',$) 
READ(5,5776,ERR-6470)  CLLAND 

IF ( ( (CLLAND. LT.O.O) .AND. (CLLAND . GT. -1 . 0) ) .OR. (CLLAND . LT . -1 . 0) ) 
&GOTO  6470 
GOTO  6450 
6480  WRITE (6, 6485) 

6485  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  CL  MAX'/ 

Si  7X, 'DURING  TAKE-OFF  (-1.0  -  CALCULATED  INTERNALLY):  ',$) 
READ(5,5776,ERR-6480)  CLTO 

IF( ( (CLTO. LT.O.O) .AND. (CLTO.GT.-l . 0) ) .OR. (CLTO. LT .-1 . 0) ) 

SGOTO  6480 
GOTO  6450 
6490  WRITE (6, 6495) 

6495  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  TRAILING  EDGE'/ 
S7X, 'FLAP  ANGLE  ON  LANDING  (DEGREES):  ',$) 

READ (5,5776,ERR-6490)  DELFLD 

IF ( (DELFLD, LT.O.O) .OR. (DELFLD.GT. 60.0) )  GOTO  6490 
GOTO  6450 
6500  WRITE (6, 6505) 

6505  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  TRAILING  EDGE'/ 
57X, 'FLAP  ANGLE  ON  TAKE-OFF  (DEGREES):  ',$) 

READ (5, 5776,ERR-6500)  DELFTO 

IF((DELFTO. LT.O.O) .OR. (DELFTO. GT. 60.0))  GOTO  6500 
GOTO  6450 
6510  WRITE (6, 6515) 

6515  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  LEADING  EDGE'/ 

4  7X, 'SLAT  ANGLE  ON  LANDING  (DEGREES):  ',$) 

READ (5, 5776,ERR-6510)  DELLED 

IF( (DELLED. LT.O.O) .OR. (DELLED. GT. 60.0) )  GOTO  6510 
GOTO  6450 
6520  WRITE (6, 6525) 

6525  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  LEADING  EDGE'/ 
47X, 'FLAP  ANGLE  ON  TAKE-OFF  (DEGREES):  '  ,  $) 
READ(5,5776,ERR-6520)  DELLTO 

IF ( (DELLTO. LT.0.„, .OR. (DELLTO. GT. 60.0) )  GOTO  6520 
GOTO  6450 
6530  WRITE (6, 6535) 
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6535  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  L/D  RATIO'/ 

&7X, 'DURING  LANDING  (-1.0  «  CALCULATED  INTERNALLY):  ',$) 
READ(5,5776,ERR-6530)  LDLAND 

1F( ( (LDLAND.lt. 0.0) .AND. (LDLAND. GT. -1. 0) ) .OR. (LDLAND .LT.-l . 0) ) 
&GOTO  6530 
GOTO  6450 
6540  WRITE (6, 6545) 

6545  FORMAT (/7X, 'ENTER  THE  VALUE  TO  BE  USED  FOR  THE  L/D  RATIO'/ 

S7X, 'DURING  TAKE-OFF  (-1.0  -  CALCULATED  INTERNALLY):  ',$) 
READ(5,5776,ERR-6540)  LDTO 

IF( ( (LDTO. LT. 0.0) .AND. (LDT0.6T.-1 . 0) ) .OR. (LDTO. LT. -1.0) ) 

&GOTO  6540 
GOTO  6450 

6550  WRITE (7, 6555)  ABOSB,  ALMAX,  AMC,  BDNOSE,  BTEF,  (CLO (I) , I-l, 10) , 
&(CLOC (I), 1-1,10),  (CLOW (I) ,1-1,10) ,  (CMO (I) ,1-1,10) ,  MACHN, 
&RCLMAX,  ROC,  ROCAN,  SFWF,  SMNDR,  (SMNSWP (I) , I-l, 10) ,  SPANAC, 
SSWPMAX,  SWPMIN,  (YSWP (I) , I-l, 10) ,  AJCAN,  ALELJ,  INORM,  ISMNDR, 
filSUPCR,  ITRAP,  ELLIPC,  ELLIPH,  ELLIPW,  CSF,  ESSF,  FCDF,  CAND, 
&CFLAP,  CGM,  (FLDMd)  ,1-1,10)  ,  {FVCAM(I)  ,  I-l,  10)  ,  IT,  SFLAP, 

&SM,  SPANF,  ZCG,  IVCAM,  ITRIM,  (ALIN (I) , I-l, 10) , 
i (ALTV (I) ,1-1,10) ,  (CLINPT(I),I-1,10),  (SMN (1) , I-l, 10) , 

SICOD,  IPLOT,  NALF,  NMDTL,  (CDBMB (I) , 1-1, 10) ,  (CDSTR (I) , I-l, 10) , 
&(CDTNK(1),I-1,10),  (CDEXTR(I),I-1,10) ,  (SMNBMB (I) , I-l, 10) , 

& (SMSTRS (I) ,1-1,10) ,  (SMTANK (I) ,1-1,10) ,  (SMEXTR (I) , I-l, 10) , 

&ICDO,  CLLAND,  CLTO,  DELFLO,  DELFTO,  OELLED,  DELLTO,  LDLAND,  LDTO 
6555  FORMAT('  $ACHAR' /5X, ' ABOSB-' , F6 . 3, ' , ' , 2X, ' ALMAX-' , F6 , 3, ' , ' , 2X, 

£ ' AMC-' , F6 . 3, ' , ' /5X, ' BDNOSE-' , F6 . 3, ' , ' , IX,  ' BTEF-'  ,  F5 . 3,  ' , ' / 

£5X, ' CLO-' , 9 (F5 . 3, ' , ' ) , F5 . 3/5X, ' CLOC-' , 9 (F5 . 3, ' , ' ) , F5 . 3/ 
fiSX.  ' CLOW-' , 9 (F5 . 3, ' , ' ) , F5 . 3/5X, ' CMO-' , 9 (F5 . 3, ' , ' ) , F5 . 3/ 

£5X, 'MACHN-' , F6 . 3, ' , ' , 2X, ' RCLMAX-' , F6 . 3, ' , ' , IX, ' ROC-' , F5 . 3, ' , ' / 

£5X, ' ROCAN-' , F5 . 3, ' , ' , 3X, ' SFWF-' , F5 . 3, ' , ' , 4X, ' SMNDR-' , F5 . 3, ' , ' / 
fi5X, ' SMNSWP-' , 9 (F5 . 3 , ' , ' ) , F5 . 3/ 

£5X, ' SPANAC-' , F6 . 3, ' , ' , IX, ' SWPMAX-' , F6 . 3, ' , ' , IX,  '  SWPMIN-' , F6 . 3, ' , ' / 
fi5X, ' YSWP-' , 9 (F6 . 3, ' , ' ) , F6 . 3/ 

&5X, ' AJCAN-' , II, ' , ' , 7X, ' ALELJ-' , II, ' , ' , 7X, ' INORM-' , 11, ' , ' / 
fi5X, ' ISMNDR-' , II, ' , ' , 6X, ' ISUPCR-' , II, ' , ' , 6X, ' ITRAP-' , II, ' , ' / 

£5X, ' ELLIPC-' , LI , ' , ' , 6X, ' ELLIPH-' , LI , ' , ' , 6X, ' ELLIPW-' , LI , ' , ' / 
fi5X, 'SEND'/'  SAMULT'/ 

£5X,  ' CSF-' , F5 . 3, ' , ' , 5X, ' ESSF-' , F5 . 3, ' , ' , 4X, ' FCDF-' , F5 . 2, ' , ' / 

£5X, 'SEND'/'  SATRIM'/ 

£5X, ' CAND-' , F6 . 3, ' , ' , 3X, ' CFLAP-' , F6 . 3, ' ,  '  , 2X,  '  C01-'  , F5 . 3,  '  ,  '  / 
fi5X, ' FLDM-' , 9 (F6 . 3, ' , ' ) , F6 . 3/5X, ' FVCAM-' , 9 (F6 . 3,  '  , ' ) , F6 . 3/ 

£5X, ' IT-' , F6 . 3, ' , ' , 5X, ' SFLAP-' , r7 . 2, ' ,  '  ,  IX,  '  SM-' ,  F6 . 3,  '  ,  '  / 

£5X, ' SPANF-' , F6 . 2 , ' , ' , 2X, ' ZCG-' , F5 . 2 , ' , ' , 5X, ' IVCAM-'  ,  II , ' , '  / 

fi5X, ' ITRIM-' , 9 (11, ' , ' ) , I1/5X, ' SEND' /'  $ADET' / 

fi5X,  '  ALIN-' , 9 (F4 . 1 , ' , ' ) , F4 . 1/5X, ' ALTV-' , 9 (F6 . 0, ' , ' ) , F6 . 0/ 

£5X, ' CLINPT-' , 9 (F6 . 3, ' , ' ) , F6 . 3/5X, ' SMN-' , 9 (F5 . 3, ' , ' ) , F5 . 3/ 

£5X, ' ICOD-' , II , ' , ' , 8X, ' IPLOT-' , II, ' ,  '  , 7X, ' HALF-' , 12, ' , ' / 

£5X,  ' NMDTL-' , 12, ' , ' /5X, ' SEND' /'  SADRAG' / 

£5X, ' CDBMB-' , 9 (F6 . 3, ' , ' ) , F6 . 3/5X, ' CDSTR-' , 9 (F6 . 3, ' , ' ) , F6 . 3/ 

45X, ' CDTNK-' , 9 (F6 . 3, ' , ' ) , F6 . 3/5X, ' CDEXTR-' , 9 (F6 . 3, ' , ' ) , F6 . 3/ 

£5X, ' SMNBMB-' , 9 (F5 . 3, ' , ' ) , F5 . 3/5X, ' SMSTRS-' , 9 (F5 . 3,  ' , ' ) , F5 . 3/ 

£5X, ' SMTANK-' , 9 (F5 . 3, ' , ' ) , F5 . 3/5X, ' SMEXTR-' , 9 (F5 . 3, ' , ' )  ,  F5 . 3/ 

£5X, ' ICDO-' , II, ' , ' /5X, ' SEND' /'  SATAKE' / 

£5X, ' CLLAND-' , F6 . 3, ' , ' , IX, ' CLTO-' , F6 . 3, ' , ' , 3X, ' DELFLD-' , F6 . 3, ' , ' / 
£5X, ' DELFTO-' , F6 . 3, ' , ' , IX, ' DELLED-' , F6 . 3, ' , ' , IX, ' DELLTO-' , F6 . 3, ' , ' / 
£5X, ' LDLAND-' , F6 . 3, ' , ' , IX, ' LDTO-' , F6 . 3 , ' , ' /5X, ' SEND' / 

£'  SAPRINT  ECHOIN-0,  IPFLAP-1,  IPCAN-1 , ' /5X, ' SEND' ) 

RETURN 

END 
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SUBROUTINE  PROP (DVTIAG) 

C - 

C  -  PROPULSION  MODULE 

C - 

LOGICAL  DVFLAG 

CHARACTER  ANS*6,  TITLE*80,  PHASE*8 
INTEGER  EN 
REAL  MACHl,  MACH2 
DIMENSION  ALTD(6),  XMACH(6) 

6590  IF (DVFLAG. EQ. .FALSE.)  THEN  !6IVE  OPTION  TO  BYPASS 

6600  STATUS  -  LIB$SPANN('CLS' ) 

WRITE (6, 6605) 

6605  FORMAT (// 

&  7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  ENGINE  CYCLE'/ 

&  7X, 'ANALYSIS?' //7X,' (1)  YES'/7X,'(2)  NO'// 

&  7X, 'SELECT  1  OR  2:  ',$) 

READ(5,6606,ERR-6600)  NUM 

6606  FORMAT (II) 

IF(NUM.EQ.l)  GOTO  6650 
IF (NUM. NE. 2)  GOTO  6600 

C  -  TRANSFER  THE  $LEWIS  NAMELIST  FROM  (10)  TO  (7) 

REWIND (10) 

6610  READ (10, 6611)  ANS 

6611  FORMAT (A6) 

IF(ANS.NE.'***  PR')  GOTO  6610 
WRITE (7, 6615) 

6615  FORMAT ('***  PROPULSION  DATA  ***') 

DO  6630  1-1,30 

READ (10, 6616)  TITLE 

6616  FORMAT (A80) 

WRITE (7, 6616)  TITLE 

6630  CONTINUE 
RETURN 
ENDIF 

C  -  NAMELIST  LEWIS 

6650  IF (DVFLAG. EQ. .FALSE.)  THEN 
REWIND (10) 

6660  READ (10, 6611, END-6690)  ANS 

IF(ANS.NE.'***  PR')  GOTO  6660 

READ (10, 6670)  ITYPE,  AENDIA,  AENLE,  AENWT,  ATURB, 

&  BA,  DIAl,  FRBT,  FRPN,  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 

£  SMI,  SODG,  VCl,  WCWAl,  YREN,  ESF,  TWAB,  TWOAB,  TWTO,  EABl, 
i  EBl,  EDI,  ETACl,  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 

£  R54N,  R711,  R711N,  SCPR,  DELT57,  T3,  T51,  T71,  DELPR,  RlOA, 

£  MACHl,  MACH2,  SFBTP,  SFINSP,  SFIP,  SFSFCl,  SFSFC2,  SFSFC3, 

£  (ALTD(I),I-1,6),  (XMACH(I),I-1,6),  DEPWCC,  EN,  IPR,  KODE, 

£  KT5,  KT7,  NOZ2,  NPUSE,  IPLOT,  IPRINT,  KERROR,  MINPR,  MODPRT, 

£  NAB,  NDTAIL,  NSUMM,  ALTI,  AM,  POSA,  TOSA 

6670  FORMAT(Il//12X,F7.3,7X,F7.3,8X,F8.2/26X,F6.3,6X,F6.3/  iARERTO 

£  10X,F6.3, 9X,F6.3,9X,F6.3/9X,F6.3,9X,F10.2,8X,F6.3/ 

£  10X,r7.3,9X,F6.3, 9X,r6.3/9X,F6.3,10X,F6.3,8X,F6.3/ 

£  11X,F6.3,8X,F5.2, 9X,F5 .2/10X,F8 . 1, 8X,F8 . 1, 6X,F5 .2/ 

£  lOX, F5 . 3, 9X, F5 . 3, lOX, F5 . 3/llX, F5 . 3, lOX, F5 . 3, lOX, F5 . 3/ 

£  10X,F6.3,10X,F6.3,8X,r6.3/9X,F6.3, 9X,r6.3, 10X,F6.3/ 

£  10X,F6.3,10X,F6.3,8X,F6.3/12X,F7.2,4X,F8.2,8X,F8.2/ 

£  9X,F8.2, 9X,F7.2,7X,F4.1/11X,F6.3, 9X,F6.3, 9X,F6.3/ 

£  12X,F6.3,7X,F6.3, IIX, r6 . 3/12X, F6 . 3, 9X, F6 . 3/lOX, 6F8 . 1/ 

£  IIX, 6F7 . 3/12X, F6. 3, 5X, 12, 14X, 12/lOX, II, 13X, 12, 13X, 12/ 

£  lOX, II, 15X, II, 14X, I1/12X, II, 14X, II, 13X, 11/ 
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&  12X, II, IIX, II, 17X, I2/11X, 12, 12X, F3 . 1, lOX, F3 . 1/ 

&  10X,F5.2,10X,F5.1) 

ENDIF 

IF (DVFLAG . EQ . . TRUE . )  ITTPE-6 
6690  STATUS  -  'jIB$SPAWN('CLS') 

WRITE (6, 6695)  ITYPE 
6695  FORMAT  (/ 

&7X, 'SELECT  THE  ENGINE  TYPE  THAT  IS  CLOSEST  TO  YOUR  DESIGN.'/ 

47X, 'YOU  CAN  THEN  ALTER  THE  VARIABLES  TO  SUIT  YOUR  NEEDS.'// 
fi7X, '**  CAUTION  **  MAKING  A  CHANGE  OF  ENGINE  TYPE  WILL'/ 

&7X, 'DESTROY  ANY  ENGINE  VARIABLES  THAT  YOU  PREVIOUSLY  SET'/ 

&7X, 'AND  RESET  THEM  FOR  THE  NEW  ENGINE  TYPE.  (YOU  WILL  NEED'/ 

&7X, 'TO  GO  THROUGH  EACH  ENGINE  PAGE  AND  REENTER  THE  VALUES)'// 
fi7X, 'ENGINE  TYPE:  ',11/ 

S.7X,  '  1  -  J85  (TURBOJET,  2700  LBS  THRUST)  '  / 

&7X, '2  -  TF30  (TURBOFAN,  0.7  BYPASS,  14500  LBS  THRUST)'/ 

&7X, '3  -  JT8D  (TURBOFAN,  1.0  BYPASS,  14500  LBS  THRUST)'/ 

&7X, '4  -  JT9D  (TURBOFAN,  8.2  BYPASS,  50000  LBS  THRUST)'/ 

&7X, '5  -  CF6  (TURBOFAN,  4.4  BYPASS,  50000  LBS  THRUST)'/ 

&7X, '6  -  GENERIC  (TURBOFAN,  6.2  BYPASS,  9300  LBS  THRUST)'// 
fi7X, '(1)  CHANGE  ENGINE  TYPE' /7X, ' (2)  NO  CHANGE'// 

&7X, 'SELECT  1  OR  2:  ',$) 

READ(5,6606,ERR-6690)  NUM 

IF ( (NUM.NE.l) .AND. (NUM.NE.2) )  GOTO  6690 

IF( (NUM.EQ.2) .AND. (DVFLAG. EQ. .TRUE.) )  THEN 

CALL  LEWIS (ITYPE,  AENDIA,  AENLE,  AENWT,  ARERTO,  ATURB, 

&  BA,  DIAl,  FRBT,  FRPN,  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 

&  SMI,  SODG,  VCl,  WCWAl,  YREN,  ESF,  TWAB,  TWOAB,  TWTO,  EABl, 

&  EBl,  EDI,  ETACl,  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 

&  R54N,  R711,  R711N,  SCPR,  DELT57,  T3,  T51,  T71,  DELPR,  RlOA, 

&  MACHl,  MACH2,  SFBTP,  SFINSP,  SFIP,  SFSFCl,  SFSFC2,  SFSFC3, 

&  ALTD,  XMACH,  DEPWCC,  EN,  IPR,  KODE,  KT5,  KT7,  NOZZ,  NPUSE, 

&  IPLOT,  IPRINT,  KERROR,  MINPR,  MODPRT,  NAB,  NDTAIL,  NSUMM,  ALTI, 
&  AM,  POSA,  TOSA) 

GOTO  6720 
ENDIF 

IF (NUM.EQ.2)  GOTO  6720 
IF(NUM.EQ.l)  THEN 
6700  WRITE (6, 6705) 

6705  FORMAT (/7X, 'ENTER  THE  NEW  ENGINE  TYPE  (1,2, 3, 4, 5,  OR  6):  ',$) 
READ(5,6606,ERR-6700)  ITYPE 
IF ( (ITYPE.LT.l) .OR. (ITYPE.GT.6) )  GOTO  6700 
CALL  LEWIS (ITYPE,  AENDIA,  AENLE,  AENWT,  ARERTO,  ATURB, 

5  BA,  DIAl,  FRBT,  FRPN,  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 

6  SMI,  SODG,  VCl,  WCWAl,  YREN,  ESF,  TWAB,  TWOAB,  TWTO,  EABl, 

&  EBl,  EDI,  ETACl,  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 

&  R54N,  R711,  R711N,  SCPR,  DELT57,  T3,  T51,  T71,  DELPR,  RlOA, 

&  MACHl,  MACH2,  SFBTP,  SFINSP,  SFIP,  SFSFCl,  SFSFC2,  SFSFC3, 

&  ALTD,  XMACH,  DEPWCC,  EN,  IPR,  KODE,  KT5,  KT7,  NOZZ,  NPUSE, 

&  IPLOT,  IPRINT,  KERROR,  MINPR,  MODPRT,  NAB,  NDTAIL,  NSUMM,  ALTI, 
&  AM,  POSA,  TOSA) 

GOTO  6690 
ENDIF 


C  -  ENGINE  PAGE  1 


6720  STATUS  -  LIB$SPAWN (' CLS' ) 

WRITE (6, 6725)  AENDIA,  AENLE,  AENWT,  ATURB,  BA,  DIAl, 
&FRBT,  FRPN 
6725  FORMAT (/ 
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&7X,'**  PROPULSION  PAGE  1  **V/ 

S7X, '(1)  ACTUAL  ENGINE  DIAMETER  (FT) . ',F7,3/ 

fi7X, '(2)  ACTUAL  ENGINE  LENGTH  (FT) . ',F7,3/ 

«7X, '(3)  ACTUAL  ENGINE  WEIGHT  (LBS) . ',F8.2/ 

fi7X,'(4)  INNER  TURBINE  FLOW  AREA  (FT2) . ',F6.3/ 

&7X,M5)  BYPASS  RATIO . ',F6.3/ 

S7X, '(6)  ENGINE  FACE  DIAMETER  (FT) . ’,T6.3/ 

fi7X,'(7)  NOZZLE  FINENESS  RATIO . ',F6.3/ 

fi7X,'(8)  COWL  FINENESS  RATIO . Sf6.3// 


«7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,6606,ERR-6720)  NUM 
IF(NUM.EQ.O)  GOTO  6840 

GOTO  (6740,  6750,  6760,  6780,  6790,  6800,  6810,  6820)  ,NUM 
GOTO  6720 
6740  WRITE (6, 6745) 

6745  FORMAT (/7X,' ENTER  THE  ENGINE  DIAMETER.  IF  0.0  IS  USED,  THE'/ 
fi7X, 'ENGINE  WILL  BE  SIZED  AUTOMATICALLY  (FEET):  ',$) 

READ(5,  6746,ERR->6740)  AENDIA 

6746  FORMAT (F7. 3) 

IF ((AENDIA.lt. 0.0) .OR. (AENDIA. GT. 30.0))  GOTO  6740 
GOTO  6720 
6750  WRITE (6, 6755) 

6755  FORMAT (/7X, 'ENTER  THE  ENGINE  LENGTH.  IF  0.0  IS  USED,  THE'/ 
&7X, 'ENGINE  WILL  BE  SIZED  AUTOMATICALLY  (FEET):  ',$) 

READ (5, 6746,ERR-6750)  AENLE 

IF( (AENLE.LT.0.0) .OR. (AENLE.GT.60.0) )  GOTO  6750 
GOTO  6720 
6760  WRITE (6, 6765) 

6765  FORMAT (/7X, 'ENTER  THE  ENGINE  WEIGHT.  IF  0.0  IS  USED,  THE'/ 
£7X, 'ENGINE  WILL  BE  SIZED  AUT(X4ATICALLY  (LBS):  ',$) 

READ(5,6766,ERR«6760)  AENWT 

6766  FORMAT (F8. 2) 

IF ((AENWT.lt. 0.0) .OR. (AENWT. GT. 100000))  GOTO  6760 
GOTO  6720 
6780  WRITE (6, 6785) 

6785  FORMAT (/7X, 'ENTER  THE  INNER  TURBINE  FLOW  AREA  (FT2) :  ' , $) 
READ(5,6786,ERR-6780)  ATURB 

6786  FORMAT (F6. 3) 

IF ( (ATURB. LE. 0.0) .OR. (ATURB. GT. 10.0))  GOTO  6780 
GOTO  6720 
6790  WRITE (6, 6795) 

6795  FORMAT (/7X, 'ENTER  THE  BYPASS  RATIO:  ',$) 
READ(5,6786,ERR<-6790)  BA 
IF( (BA.LT.0.0) .OR. (BA.GT.30.0))  GOTO  6790 
GOTO  6720 
6800  WRITE (6, 6805) 

6805  FORMAT (/7X, 'ENTER  THE  ENGINE  FACE  DIAMETER  (FT):  ',$) 
READ(5,6786,ERR-6800)  DIAl 

IF( (DIAI.LT.0.0) .OR. (DIAl.GT.30.0) )  GOTO  6800 
GOTO  6720 
6810  WRITE (6, 6815) 

6815  FORMAT (/7X, 'ENTER  THE  NOZZLE  FINENESS  RATIO  '/ 

&7X, ' (NOZZLE  LENGTH/NOZZLE  MAX  DIAMTER) :  ',$) 
READ(5,6786,ERR-6810)  FRBT 
IF(rRBT.LT.O.O)  GOTO  6810 
GOTO  €720 
6820  WRITE (6, 6825) 

6825  FORMAT (/7X, 'ENTER  THE  COWL  FINENESS  RATIO'/ 

S7X, ' (COWL  LENGTH/COWL  MAX  DIAMETER) :  ',$) 
READ(5,6786,ERR-6820)  FRPN 
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ir (FRPN.LT.O.O)  GOTO  6820 
GOTO  6720 


-  PROPULSION  PAGE  2 

6840  STATUS  -  LIB$SPA?«N  (' CLSM 

WRITE (6, 6845)  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 


SSMl,  SODG,  VCl 
6845  FORMAT (/ 

fc7X, PROPULSION  PAGE  2  **'// 

&7X,'(1)  ENGINE  HUB/TIP  RATIO . ',F6.3/ 

fi7X,  M2)  FUEL  HEAT  VALUE  (BTU/LBM) . ',*'10.2/ 

S7X, ' (3)  SCALING  FACTOR  FOR  INLET  CAPTURE  AREA . ',F6.3/ 

67X,  M4)  ENGINE  PERCENT  CORRECTED  AIRFLOW . '  .3/ 

fi7X,  M5)  MAXIMUM  NACELLE  DIAMETER  FACTOR . ',F6.3/ 

&7X,  '  (6)  TOTAL  NACELLE  LENGTH  FACTOR . '  ,F6. 3/ 

&7X,  M7)  ENGINE  FACE  MACH  NUMBER . ',F6.3/ 

&7X, M8)  DISTANCE  BETWEEN  NOZZLES /NOZZLE  DIAMETER _ ',FS.3/ 

fi7X,M9)  NOZZLE  VELOCITY  COEFFICIENT . ',F6.3// 


i7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE;  ',$) 

READ (5, 6606,ERR-6840)  NUM 
IF{NUM.EQ.O)  GOTO  7000 

GOTO  (6860,  6870,  6880,  6890,  6900,  6910,  6920,  6930,  6940)  ,NUM 
GOTO  6840 
6860  WRITE (6, 6865) 

6865  FORMAT (/7X, 'ENTER  THE  ENGINE  HUB/TIP  RATIO:  ',$) 

READ (5, 6786,ERR-6860)  HTR 
IF( (HTR.LE.O.O) .OR. (HTR.GE.I.O))  GOTO  6860 
GOTO  6840 
6870  WRITE (6, 6875) 

6875  FORMAT (/7X, 'ENTER  THE  FUEL  HEAT  VALUE  (BTU/LBM);  ',$) 
READ(5,6876,ERR-6870)  HVF 

6876  FORMAT (FIO. 2) 

IF ( (HVF. LT. 14000.0) .OR. (HVF. GT. 22000. 0) )  GOTO  6870 
GOTO  6840 
6880  WRITE (6, 6885) 

6885  FORMAT (/7X, 'ENTER  THE  SCALING  FACTOR  FOR  THE  INLET'/ 

47X, ' CAPTURE  AREA:  ' , $) 

READ (5, 6786,ERR-6880)  PCDFAC 

IF ( (PCDFAC. LT. 0.5) .OR. (PCDFAC. GT. 1.5) )  GOTO  6880 
GOTO  6840 
6890  WRITE (6, 6895) 

6895  FORMAT (/7X, 'ENTER  THE  ENGINE  PERCENT  CORRECTED  AIRFLOW:  ',$) 
READ(5,6896,ERR-6890)  PWCC 

6896  FORMAT (F5. 3) 

IF( (PWCC. LT. 50.0) .OR. (PWCC. GT. 150.0) )  GOTO  6890 
GOTO  6840 
6900  WRITE (6, 6905) 

6905  FORMAT (/7X, 'ENTER  THE  MAXIMUM  NACELLE  DIAMETER  FACTOR.  '/ 

&7X, ' (ENGINE  DIAMETER  *  DIAMETER  FACTOR  -  NACELLE  DIAMETER) :  ' 

&,$) 

READ(5,6786,ERR>6900)  ROIAM 

IF ( (RDIAM.lt. 1.0) .OR. (RDIAM.GT. 2.0) )  GOTO  6900 
GOTO  6840 
6910  WRITE (6, 6915) 

6915  FORMAT (/7X, 'ENTER  THE  NACELLE  LENGTH  FACTOR.  (ENGINE'/ 
i7X, '  LENGTH  *  LENGTH  FACTOR  -  NACELLE  LENGTH):  ',$) 

READ (5, 6786,ERR-6910)  RLENG 

IF ( (RLENG. LT. 1.0) .OR. (RLENG. GT. 3.0) )  GOTO  6910 
GOTO  6840 
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6920  WRITE (6, 6925) 

6925  FORMAT (/7X, 'ENTER  THE  ENGINE  FACE  MACH  NUMBER:  ',$) 
READ(5,6786,ERR-6920)  SMI 

IF< (SMI.LE.0.0) .OR. (SMl.GT.2.0) )  GOTO  6920 
GOTO  6840 
6930  WRITE (6, 6935) 

6935  FORMAT (/7X, 'ENTER  THE  DISTANCE  BETWEEN  THE  EXHAUST  NOZZLES'/ 

6 7X, 'DIVIDED  BY  THE  NOZZLE  EXIT  DIAMETER:  ',$) 
READ(5,6786,ERR-6930)  SODG 
IF(SODG.LT.l.O)  GOTO  6930 
GOTO  6840 
6940  WRITE (6, 6945) 

6945  FORMAT (/7X, 'ENTER  THE  NOZZLE  VELOCITY  COEFFICIENT:  ',$) 
READ(5,6786,ERR-6940)  VCl 

IF( (VCI.LT.0.6) .OR. (VCl.GT.l.O))  GOTO  6940 
GOTO  6840 

C - 

C  -  PROPULSION  PAGE  3 

- - 

7000  STATUS  -  LIBS SPAWN (' CLS' ) 

WRITE (6, 7005)  WCWAl,  YREN,  TWAB,  TWOAB,  TWTO,  EABl,  EBl,  EDI, 


4ETAC1 

7005  FORMAT (/ 

S7X, '**  PROPULSION  PAGE  3  **'// 

i7X,'  (1)  COOLING/PRIMARY  AIRFLOW  RATIO . ',F6.3/ 

&7X,  '  (2)  YEAR  OF  ENGINE  INSTALLATION . ',F5.2/ 

S7X, ' (3)  THRUST  W/AFTERBURNER  AT  SEA-LEVEL. F8 . 1/ 

S7X, ' (4)  THRUST  W/0  AFTERBURNER  AT  SEA-LEVEL. ' ,F8 . 1/ 

fi7X,  '  (5)  THRUST/WEIGHT  RATIO  AT  TAKE-OFF . ',F5.2/ 

t7X,  '  (6)  AFTERBURNER  ADIABATIC  EFFICIENCY . ',F5.3/ 

47X, '(7)  COMBUSTER  ADIABATIC  EFFICIENCY . ',F5.3/ 

47X, '(8)  DUCT  BURNER  ADIABATIC  EFFICIENCY . ',P5.3/ 

fi7X,'  (9)  COMPRESSOR  ADIABATIC  EFFICIENCY . ',F5.3// 


i7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,6606,ERR-7000)  NUM 
IF(NDM.EQ.O)  GOTO  7130 

GOTO  (7020,  7030,  7040,  7050,  7060,  7070,  7080,  7090,  7100)  ,NUM 
GOTO  7000 
7020  WRITE (6, 7025) 

7025  FORMAT (/7X, 'ENTER  THE  COOLING/PRIMARY  AIRFLOW  RATIO;  ',$) 

READ (5, 6786,ERR-7020)  WCWAl 

IF ((WCWA1.lt. 0.0) .OR. (WCWAl. GT. 0.2))  GOTO  7020 
GOTO  7000 
7030  WRITE (6, 7035) 

7035  FORMAT (/7X, 'ENTER  THE  YEAR  OF  ENGINE  INSTALLATION'/ 

67X, '(IF  THE  YEAR  IS  1991,  ENTER  "SI"):  ',$) 

READ(5,7036,ERR-7030)  YREN 

7036  FORMAT (F5. 2) 

GOTO  7000 

7040  WRITE (6, 7045) 

7045  FORMAT (/7X, 'ENTER  THE  ENGINE  THRUST  WITH  AFTERBURNER  ON  AT'/ 
i7X, 'SEA-LEVEL,  STATIC.  (THE  ENGINE  SIZING  FLAG  SHOULD  BE  SET'/ 
47X, 'TO  -2  IN  THE  TRAJECTORY  MODULE):  ',$) 

READ(5,7046,ERR-7040)  TWAB 

7046  FORMAT (F8.1) 

IF( (TWAB. LT. 0.0) .OR. (TWAB. GT. 999999. 0) )  GOTO  7040 
GOTO  7000 
7050  WRITE (6, 7055) 

7055  FORMAT (/7X, 'ENTER  THE  ENGINE  THRUST  WITHOUT  AFTERBURNER  AT'/ 

S7X, 'SEA-LEVEL,  STATIC.  (THE  ENGINE  SIZING  FLAG  SHOULD  BE  SET'/ 
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S7X, 'TO  -3  IN  THE  TRAJECTORY  MODULE):  ',$) 
READ(5,7046,ERR-7050)  TWOAB 

ir( (TWOAB.lt. 0.0) .OR. (TWOAB.GT. 999999. 0) )  GOTO  7050 
GOTO  7000 
7060  WRITE (6, 7065) 

7065  FORMAT (/7X, 'ENTER  THE  THRUST/WEIGHT  RATIO  AT  TAKE-OFF.  (THE'/ 
fi7X, 'ENGINE  SIZING  FLAG  SHOULD  BE  SET  TO  0  OR  -1  IN  THE'/ 
fi7X, ' TRAJECTORY  MODULE) :  ' , $) 

READ(5,7036,ERR-7060)  TWTO 

IF( (TWTO.LE.0.0) .OR. (TETO.GT.10.0) )  GOTO  7060 
GOTO  7000 
7070  WRITE (6, 7075) 

7075  FORMAT (/7X, 'ENTER  THE  AFTERBURNER  ADIABATIC  EFFICIENCY:  ',$) 
READ(5,6896,ERR-7070)  EABl 

IF( (EABl.LT.0.6) .OR. (EABl.GT.1.0))  GOTO  7070 
GOTO  7000 
7080  WRITE (6, 7085) 

7085  FORMAT (/7X, 'ENTER  THE  CC»IBUSTER  ADIABATIC  EFFICIENCY:  ',$) 
R£AD(5,6896,ERR-7080)  EBl 

IF( (EBl.LT.0.6) .OR. (EBl.GT.1.0) )  GOTO  7080 
GOTO  7000 
7090  WRITE (6, 7095) 

7095  FORMAT (/7X, 'ENTER  THE  DUCT  BURNER  ADIABATIC  EFFICIENCY:  ',$) 
READ(5,6896,ERR-7090)  EDI 

1F((ED1.LT.0.6) .OR. (EDl.GT.1.0))  GOTO  7090 
GOTO  7000 
7100  WRITE (6, 7105) 

7105  FORMAT (/7X, 'ENTER  THE  COMPRESSOR  ADIABATIC  EFFICIENCY:  ',$) 
READ(5,6896,ERR-7100)  ETACl 

IF((ETAC1.LT.0.6) .OR. (ETACl.GT.1.0))  GOTO  7100 
GOTO  7000 


-  PROPULSION  PAGE  4 


7130  STATUS  •  LIBSSPAWN (' CLS' ) 

WRITE (6, 7135)  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 


SR54N,  R711,  R711N 
7135  FORMAT (/ 

i7X, '**  PROPULSION  PAGE  4  **'// 

67X,'(1)  FAN  ADIABATIC  EFFICIENCY . ',F5.3/ 

&7X,'(2)  TURBINE  ADIABATIC  EFFICIENCY . ',F5.3/ 

67X,'(3)  DESIGN  FAN  PRESSURE  RATIO . ',F6.3/ 

S7X,'(4)  OUTER  CC»lPRESSOR  PRESSURE  RATIO . ',F6.3/ 

S7X,'(5)  OVERALL  COMPRESSOR  PRESSURE  RATIO . ',F6.3/ 

&7X,'(6)  COMBUSTER  PRESSURE  RATIO . ',F6.3/ 

fi7X, '(7)  AFTERBURNER  PRESSURE  RATIO . ',F6.3/ 

67X, ' (8)  AFTERBURNER  PRESSURE  RATIO  W/O  AB  LIT . . . ' , F6 . 3/ 

S7X,'(9)  DUCTBURNER  PRESSURE  RATIO . ',F6.3/ 


&7X,'(10)  DUCTBURNER  PRESSURE  RATIO  W/O  DB  LIT _ ',F6.3// 

6 7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,7136,ERR-7130)  NUM 
7136  FORMAT (12) 

IF(NUM.EQ.O)  GOTO  7270 

GOTO  (7150,  7160,  7170,  7180,  7190,  7200,  7210,  7220,  7230,  7240) 
&,NUM 
GOTO  7130 
7150  WRITE (6, 7155) 

7155  FORMAT (/7X, 'ENTER  THE  FAN  ADIABATIC  EFFICIENCY:  ',$) 

READ  (5,  6896,ERR-‘7150)  ETAFl 

IF ( (ETAFl. LT. 0.6) .OR. (ETAFl. GT. 1.0) )  GOTO  7150 
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GOTO  7130 
7160  WRITE (6, 7165) 

7165  FORMAT (/7X, 'ENTER  THE  TURBINE  ADIABATIC  EFFICIENCY:  ',$) 
READ(5,6896,ERR->7160)  ETATl 

IF(  (ETATl.I.T.0.6)  .OR.  (ETATl.GT.1.0) )  GOTO  7160 
GOTO  7130 
7170  WRITE (6, 7175) 

7175  FORMAT (/7X, 'ENTER  THE  DESIGN  FAN  PRESURE  RATIO:  ',$) 
READ(5,6786,ERR-7170)  PRFD 

IF((PRFD.LT.1.0) .OR. (PRFD.GT.10.0))  GOTO  7170 
GOTO  7130 
7180  WRITE (6, 7185) 

7185  FORMAT {/7X, 'ENTER  THE  OUTER  COMPRESSOR  PRESSURE  RATIO:  ',$) 
READ(5,6786,ERR-7180)  PllPl 

IF( (P11P1.lt. 1.0) .OR. (PllPl.GT. 15.0) )  GOTO  7180 
GOTO  7130 
7190  WRITE (6, 7195) 

7195  FORMAT (/7X, 'ENTER  THE  OVERALL  COMPRESSOR  PRESSURE  RATIO:  ',$) 
READ(5,6786,ERR-7190)  P2P1 

IF( (P2P1.lt. 3.0) .OR. (P2P1.GT. 50.0) )  GOTO  7190 
GOTO  7130 
7200  WRITE (6, 7205) 

7205  FORMAT (/7X, 'ENTER  THE  COMBUSTER  PRESSURE  RATIO:  ',$) 
READ(5,6786,ERR-7200)  R32 

IF( (R32.LT.0.6) .OR. (R32.GT.1.0) )  GOTO  7200 
GOTO  7130 
7210  WRITE (6, 7215) 

7215  FORMAT (/7X, 'ENTER  THE  AFTERBURNER  PRESSURE  RATIO:  ',$) 
READ(5,6786,ERR-7210)  R54 

IF( (R54.lt. 0.6) .OR. (R54.GT. 1.0))  GOTO  7210 
GOTO  7130 
7220  WRITE (6, 7225) 

7225  FORMAT (/7X, 'ENTER  THE  AFTERBURNER  PRESSURE  RATIO  WITHOUT'/ 
«i7X,'THE  AFTERBURNER  LIT:  ',$) 

READ(5, 6786,ERR-7220)  R54N 

ir((R54N.LT.0.6) .OR. (R54N.GT.1.0))  GOTO  7220 
GOTO  7130 
7230  WRITE (6, 7235) 

7235  FORMAT (/7X, 'ENTER  THE  DUCTBURNER  PRESSURE  RATIO:  ',$) 
RBAD(5,6786,ERR-7230)  R711 

IF( (R711.LT.0.6) .OR. (R711.GT.1.0) )  GOTO  7230 
GOTO  7130 
7240  WRITE (6, 7245) 

7245  FORMAT (/7X, 'ENTER  THE  DUCTBURNER  PRESSURE  RATIO  WITHOUT  THE'/ 
4 7X, 'DUCTBURNER  LIT:  ',$) 

READ(5,6786,BRR-7240)  R711N 

IF( (R711N.lt. 0.6) .OR. (R711N.GT. 1.0) )  GOTO  7240 
GOTO  7130 
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7270  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 7275)  SCPR,  T3,  T51,  T71,  DBLPR,  EN,  IPR 
7275  FORMAT (/ 

&7X, '**  PROPULSION  PAGE  5  **'// 

t7X,'(l)  AVERAGE  COMPRESSOR  STAGE  RISE  (PSI) . ',F6.3/ 

47X,'(2)  TURBINE  INLET  TEMPERATURE  (DEGREES  R) . ',F8.2/ 

i7X, '(3)  AFTERBURNER  MAX  TEMPERATURE  (DEGREES  R)...',F8.2/ 

&7X,'(4)  DUCTBURNER  MAX  TEMPERATURE  (DEGREES  R) _ ',F8.2/ 

47X, ' (5)  INCREMENTAL  INLET  TOTAL  PRESSURE' / 


&7X,  '  RECOVERY  REDUCTION . '  ,T1 .2/ 

S7X,  '  (6)  NUMBER  OF  ENGINES . ',12/ 

S7X, '(7)  INLET  PRESSURE  RECOVERY  CODE . ',12// 


47X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,6606,ERR-7270)  NUM 
IF(NUM.EQ.O)  GOTO  7400 

GOTO  (7290,  7300,  7310,  7320,  7330,  7340,  7350)  ,NUM 
GOTO  7270 
7290  WRITE (6, 7295) 

7295  FORMAT (/7X, 'ENTER  THE  AVERAGE  COMPRESSOR  STAGE  RISE:  ',$) 

READ (5, 6786,ERR-7290)  SCPR 

IF( (SCPR.LT.1.0) .OR. {SCPR.GT.3.0) )  GOTO  7290 
GOTO  7270 
7300  WRITE (6,7305) 

7305  FORMAT (/7X, 'ENTER  THE  TURBINE  INLET  TEMPERATURE  (DEGREES  R) :  ' 

&,$) 

RBAD(5,6766,ERR-7300)  T3 

IF( (T3.LT. 1500.0) .OR. (T3.GT. 4000.0) )  GOTO  7300 
GOTO  7270 
7310  WRITE (6, 7315) 

7315  FORMAT (/7X, 'ENTER  THE  AFTERBURNER  MAX  TEMPERATURE'/ 

&7X, '  (ENTER  0.0  IF  NO  AB)  (DEGREES  R) :  ',$) 
READ(5,6766,ERR-7310)  T51 
IF (T51.lt. 0.0)  GOTO  7310 
GOTO  7270 
7320  WRITE (6, 7325) 

7325  FORMAT (/7X, 'ENTER  THE  DUCTBURNER  MAX  TEMPERATURE'/ 

&7X, '(ENTER  0.0  IF  NO  DB)  (DEGREES  R) :  ',$) 
READ(5,6766,ERR-«7320)  T71 
IF (T71.lt. 0.0)  GOTO  7320 
GOTO  7270 
7330  WRITE (6, 7335) 

7335  FORMAT (/7X, 'ENTER  THE  INCREMENTAL  INLET  TOTAL  PRESSURE'/ 

47X, 'RECOVERY  REDUCTION.  INPUT  AS  A  POSITIVE  NUMBER  (PSI)  :  ',$) 
READ(5,7336,ERR-7330)  DELPR 

7336  FORMAT (r7. 2) 

IF ( (DELPR. LT. 0.0) .OR. (DELPR. GT. 1.0) )  GOTO  7330 
GOTO  7270 
7340  WRITE (6, 7345) 

7345  FORMAT (/7X, 'ENTER  THE  NUMBER  OF  ENGINES:  ',$) 
READ(5,7136,ERR-7340)  EN 
IF ( (EN.LT.l) .OR. (EN.GT.IO) )  GOTO  7340 
GOTO  7270 
7350  WRITE (6, 7355) 

7355  FORMAT (/7X, 'ENTER  THE  INLET  PRESSURE  RECOVERY  CODE'/ 

47X, ' (1  -  AIA  RAM  RECOVERY)'/ 

&7X, '  (2  -  MILSPEC-5008B)  '  / 

S7X,' (3  -  NORMAL  SHOCK)'/ 

47X, ' (4  -  TABLE  LOOK-UP):  ',$) 

REAP(5,7136,ERR-7350)  IPR 

IF ( (IPR.LT.l) .OR. (IPR.GT.4) )  GOTO  7350 

GOTO  7270 

C - 

C  -  PROPULSION  PAGE  6 

C - 

7400  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 7405)  SFSFCl,  MACHl,  SFSFC2,  MACH2,  SFSFC3,  SFBTP, 
&SFINSP,  SFIP 
7405  FORMAT (/ 

67X, '**  PROPULSION  PAGE  6  **• / / 
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i7X, '  (1)  SFC  MULTIPLYING  FACTOR  FOR  CONDITION  ONE . ' ,F6. 3/ 

S7X, ' (2)  UPPER  LIMIT  ON  MACH  NUMBER  FOR  CONDITION  ONE.,',F6.3/ 

fi7X, '  (3)  SFC  MULTIPLYING  FACTOR  FOR  CONDITION  TWO . ',F6.3/ 

i7X, ' (4)  LOWER  LIMIT  ON  MACH  HUMBER  FOR  CONDITION  TWO. .',F6.3/ 

fi7X, '  (5)  SFC  MULTIPLYING  FACTOR  FOR  BURNER  LIT . ',F6.3/ 

«7X,  '  (6)  SCALE  FACTOR  FOR  NOZZLE  BOAT-TAIL  DRAG . ',F6.3/ 

47X,'  (7)  SCALE  FACTOR  FOR  TOTAL  INSTALLATION  DRAG . ',F6.3/ 

&7X, M8)  SCALE  FACTOR  FOR  NOZZLE  INTERFERENCE  DRA .  ',F6.3// 

&7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,6606,ERR-7400)  HUM 
IF(NUM.EQ.O)  GOTO  7510 


GOTO  (7420,  7430,  7440,  7450,  7460,  7470,  7480,  7490)  ,NUM 
GOTO  7400 
7420  WRITE (6, 7425) 

7425  FORMAT (/7X, 'ENTER  THE  SPECIFIC  FUEL  CONSUMPTION  MULTIPLYING'/ 
fi7X, 'FACTOR  FOR  THE  FIRST  CONDITION:  ',$) 

READ(5,6786,ERR-7420)  SFSFCl 

IF ( (SFSFC1.lt. 0.3) .OR. (SFSFCl.GT. 3.0) )  GOTO  7420 
GOTO  7400 
7430  WRITE (6, 7435) 

7435  FORMAT (/7X, 'ENTER  THE  UPPER  LIMIT  ON  MACH  NUMBER  FOR  THE'/ 
47X, 'FIRST  CONDITION:  ',$) 

REAO(5,678€,ERR-7430)  MACHl 

IF ( (MACH1.lt. 0.0) .OR. (MACHl.GT. 3.0) )  GOTO  7430 
GOTO  7400 
7440  WRITE (6, 7445) 

7445  FORMAT (/7X, 'ENTER  THE  SPECIFIC  FUEL  CONSUMPTION  MULTIPLYING'/ 
4 7X, 'FACTOR  FOR  THE  SECOND  CONDITION:  ',$) 
REAO(5,6786,ERR-7440)  SFSFC2 

IF( (SFSFC2.lt. 0.3) .OR. (SFSFC2.GT. 3.0))  GOTO  7440 
GOTO  7400 
7450  WRITE (6, 7455) 

7455  FORMAT (/7X, 'ENTER  THE  LOWER  LIMIT  ON  MACH  NUMBER  FOR  THE'/ 
47X, 'SECOND  CONDITION  (MUST  BE  GREATER  THAN  THE  MACH  NUMBER'/ 
47X, 'LIMIT  ON  CONDITION  ONE);  ',$) 

READ(5, 6786,ERR-7450)  MACH2 

IF( ( (MACH2.lt. 0.0) .OR. (MACH2.GT.3.0) ) .OR.  (MACH2.LT. MACHl) ) 
4GOTO  7450 
GOTO  7400 
7460  WRITE (6, 7465) 

7465  FORMAT (/7X, 'ENTER  THE  SPECIFIC  FUEL  CONSUMPTION  MULTIPLYING'/ 
4 7X, 'FACTOR  FOR  AFTERBUROTR  LIT:  ',$) 

READ (5, 6786,ERR-7460)  SFSFC3 

IF ( (SFSFC3.lt. 0.3) .OR. (SrSrC3.GT. 10.0) )  GOTO  7460 
GOTO  7400 
7470  WRITE (6, 7475) 

7475  FORMAT (/7X, 'ENTER  THE  SCALE  FACTOR  FOR  THE  NOZZLE'/ 

4 7X, '  BOAT-TAIL  DRAG :  ' , $ ) 

READ (5, 6786,ERR-7470)  SFBTP 

IF ( (SFBTP.lt. 0.0) .OR. (SFBTP.GT. 2.0) )  GOTO  7470 
GOTO  7400 
7480  WRITE (6, 7485) 

7485  FORMAT (/7X, 'ENTER  THE  SCALE  FACTOR  FOR  THE  TOTAL'/ 

4 7X, 'INSTALLATION  DRAG:  ',$) 

READ (5, 6786,ERR-7480)  SFINSP 

IF ( (SFINSP.lt. 0.0) .OR. (SFINSP.GT. 2.0) )  GOTO  7480 
GOTO  7400 
7490  WRITE (6, 7495) 

7495  FORMAT (/7X, 'ENTER  THE  SCALE  FACTOR  FOR  THE  NOZZLE'/ 

4 7X, ' INTERFERENCE  DRAG:  ',$) 
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REA0(5, 6786,ERR-7490)  SFXP 

ir((SFIP.LT.O.O) .OR. (SFIP.GT.2.0))  GOTO  7490 
GOTO  7400 
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7510  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 7515)  (ALTD(I) ,1-1,6) ,  (XMACH (I) , I-l, 6) ,  NAB,  KODE, 
fiKT5,  KT7,  NOZZ 
7515  FORMAT (/ 

fi7X, '**  PROPULSION  PAGE  7  **'// 

i7X, ' (1)  ALTITUDES  FOR  DETAILED  OUTPUT  (FT) ;  ' , 2 (F7 . 1, ' , ' ) / 
&11X, 3 (F7.1, ' , ' ) ,F7.1// 

&7X,'(2)  MACH  NUMBERS  FOR  DETAILED  OUTPUT:  ' , 2  (F6 . 3, ' , ' ) / 
&11X,3(F6.3,','),F6.3// 

S7X, ' (3)  NUMBER  OF  ALT/MACH  C<»fflINATIONS  WITHOUT  AB  LIT.. ',12/ 


fi7X, '(4)  ENGINE  TYPE  INDICATOR . ',11/ 

i7X, '  (0  -  TURBOJET,  2  -  TURBOFAN)'/ 

&7X, '(5)  AFTERBURNER  INDICATOR . ',12/ 

fi7X, '(6)  DUCTBURNER  INDICATOR . ',12/ 

&7X, '(7)  NOZZLE  TYPE  INDICATOR . ',11/ 


S/'  SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 

READ(5,6606,ERR-7510)  NUM 
IF(NUM.EQ.O)  GOTO  7600 

GOTO  (7530,  7540,  7550,  7560,  7570,  7580,  7590)  ,NUM 
GOTO  7510 
7530  WRITE (6, 7535) 

7535  FORMAT (/7X, 'ENTER  THE  ARRAY  OF  ALTITUDES  FOR  THE  DETAILED'/ 
S7X, 'OUTPUT  (UP  TO  6).  PUT  A  BETWEEN  EACH  NUMBER.  '/ 

4 IX, 'ALTITUDES:  ',$) 

READ(5,7536,ERR-7530)  (ALTD (I) , I-l, 6) 

7536  FORMAT (6F8.1) 

DO  7537  1-1,6 

IF((ALTD(I) .LT. 0.0) .OR. (ALTD(I) .GT. 99999.0))  GOTO  7530 

7537  CONTINUE 
GOTO  7510 

7540  WRITE (6, 7545) 

7545  FORMAT (/7X, 'ENTER  THE  ARRAY  OF  MACH  NUMBERS  FOR  THE  DETAILED'/ 
47X, 'OUTPUT  (UP  TO  6) .  THESE  SHOULD  BE  MATCHED  TO  THE'/ 

67X, 'ALTITUDES.  PUT  A  BETWEEN  EACH  NUMBER.  '/ 

41X,'MACH:  ',$) 

READ(5,7546,ERR-7540)  (XMACH (I) , I-l, 6) 

7546  FORMAT (6F6. 3) 

DO  7547  1-1,6 

IF( (XMACH(I) .LT.0.0) .OR. (XMACH(I) .GT.3.0) )  GOTO  7540 

7547  CONTINUE 
GOTO  7510 

7550  WRITE (6,7555) 

7555  FORMAT (/7X, 'ENTER  THE  NUMBER  OF  ALTITUDE/MACH  NUMBER'/ 

4 7X, 'COMBINATIONS  IN  THE  ARRAYS  ABOVE  THAT  DO  NOT  HAVE  THE'/ 
47X, 'AFTERBURNER/DUCTBURNER  LIT,  (IF  THERE  ARE  4  ALT/MACH'/ 

47X, 'COMBINATIONS  AND  "3"  IS  ENTERED  HERE,  THEN  THE  LAST'/ 

47X, 'COMBINATION  WILL  HAVE  A  LIT  BURNER):  ',$) 
READ(5,6606,ERR-7550)  NAB 
IF((NAB.GT.6) .OR. (NAB.LT.O))  GOTO  7550 
GOTO  7510 
7560  WRITE (6, 7565) 

7565  FORMAT (/7X, 'ENTER  THE  ENGINE  TYPE  INDICATOR'/ 

47X, ' 0  -  TURBOJET' / 

47X, '2  -  TURBOFAN:  ',$) 
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READ (5, 6606,ERR-7560)  KODE 
ir( (KODE.NE.O) .AND. (KODE.NE.2))  GOTO  7560 
GOTO  7510 
7570  WRITE (6, 7575) 

7575  FORMAT (/7X, 'ENTER  THE  AFTERBURNER  INDICATOR'/ 

S7X, '  0  -  NO  AB'/ 

&7X, '-X  -  AB  PRESENT,  NOT  LIT'/ 
t7X, '  2  -  AB  LIT:  ',$) 

READ(5,7136,ERR-7570)  KT5 

IF ( (KT5.NE.0) .AND. <KT5.HE.-1) .AND. <KT5.NE.2) )  GOTO  7570 
GOTO  7510 
7580  WRITE (6, 7585) 

7585  FORMAT (/7X, 'ENTER  THE  DUCTBURNER  INDICATOR'/ 
fi7X, '  0  -  NO  DUCTBURNER'/ 
t7X, '-1  -  DB  PRESENT,  NOT  LIT'/ 

S7X, '  2  -  DUCTBURNER  LIT:  ',$) 

READ(5,7136,ERR-7580)  KT7 

IF((KT7.NB.0) .AND. (KT7.NE.-1) .AND. (KT7.NE.2))  GOTO  7580 
GOTO  7510 
7590  WRITE (6, 7595) 

7595  FORMAT (/7X, 'ENTER  THE  NOZZLE  TYPE  INDICATOR'/ 
i7X, '0  -  CONVERGENT  NOZZLE'/ 

&7X, '1  -  CONVERGENT-DIVERGENT  NOZZLE'/ 

67X, '2  -  NOZZLE  VELOCITY  COEFFICIENT:  ',$) 

READ{5,6606,ERR-7590)  NOZZ 

IF ( (NOZZ.LT.O) .OR. (NOZZ.GT.2) )  GOTO  7590 

GOTO  7510 

7600  WRITE (7, 7605)  ITYPE,  AENDIA,  AENLE,  AENWT,  ATURB, 

&BA,  DIAl,  FRBT,  FRPN,  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 

&SM1,  SODG,  VCl,  WCWAl,  YREN,  ESF,  TWAB,  TWOAB,  TWTO,  EABl, 
iEBl,  EDI,  ETACl,  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 
6R54N,  R711,  R711N,  SCPR,  DELT57,  T3,  T51,  T71,  DBLPR,  RlOA, 
&MACH1,  MACH2,  SFBTP,  SFINSP,  SFIP,  SFSFCl,  SFSFC2,  SFSFC3, 
&(ALTD(I),I-1,6),  (XMACH(I) ,1-1,6) ,  DBPWCC,  BN,  IPR,  KODE, 
fiKT5,  KT7,  NOZZ,  NPUSE,  IPLOT,  IPRINT,  KERROR,  MINPR,  MODPRT, 
&NAB,  NDTAIL,  NSUMM,  ALTI,  AM,  POSA,  TOSA 
7605  FORMAT  ('*’**  PROPULSION  DATA  ***'/!!/'  SLEWIS' / 

S5X, ' AENDIA-' , F7 . 3 , ' , ' , ' AENLE-' , F7 . 3, ' , ' , IX, ' AENWT-' , F8 . 2 , ' , ' / 
<120X,'ATURB-',F6.3,',',2X,'BA-',F6.3,','/  lARERTO  TAKEN  OUT 
ft 5X, ' DIA1-' , F6 . 3, ' , ' , 3X, ' FRBT-' , F6 . 3, ' , ' , 3X, ' FRPN-' , F6 . 3 ,  '  ,  '  / 
ft5X,  ' HTR-' , F6 . 3, ' , ' , 4X, ' HVF-' , FIO . 2, ' , ' , ' PCDFAC-' , F6 . 3, ' , ' / 

&5X, ' PWCC-' , F7 . 3, ' , ' , 2X, ' RDIAM-' , F6 . 3, ' , ' , 2X, ' RLENG-' , F6 . 3, ' , ' / 
«5X, ' SM1-' , F6 . 3, ' , ' , 4X, ' SODG-' , F6 . 3, ' , ' , 3X, ' VC1-'  ,  F6 . 3,  '  ,  ' / 

S5X,  ' WCWA1-' , F6 . 3, ' , ' , 2X, ' YREN-' , F5 . 2, ' , ' , 4X, ' ESF-' , F5 . 2, ' , ' / 
ft5X, ' TWAB-' , F8 . 1 , ' , ' , IX, ' TWOAB-' , F8 . 1 , ' , ' , ' TWTO-' , F5 . 2 , ' , ' / 

&5X, ' EAB1-' , F5 . 3, ' , ' , 4X, ' EB1-' , F5 . 3, ' , ' , 5X, ' BD1-'  ,  F5 . 3, ' , ' / 
ft 5X, ' ETAC1-' , F5 . 3, ' , ' , 3X, ' ETAF1-' , F5 . 3, ' , ' , 3X, ' ETAT1-' , F5 . 3, ' , ' / 
ft5X, ' PRFD-' , F6 . 3, ' , ' , 3X, ' P11P1-' , F6 . 3, ' , ' , 2X, ' P2P1-' , F6 . 3, ' , ' / 
&5X, ' R32-' , F6 . 3, ' , ' , 4X, ' R54-' , F6 . 3, ' , '  ,  4X, '  R54N-' , P6 . 3, ' , ' / 
ft5X, ' R711-' , F6 . 3, ' , ' , 3X, ' R711N-' , F6 . 3, ' , ' , 2X, ' SCPR-' , F6 . 3, ' , ' / 
ft5X,  ' DELT57-' , F7 . 2, ' , ' , ' T3-' , FB . 2, ' , ' , 3X, ' T51-' , F8 . 2, ' , ' / 
ft5X, ' T71-' , F8 . 2, ' , ' , 2X, ' DELPR-' , F7 . 2, ' , ' , IX, ' R10A-' , F4 . 1 , ' , ' / 

&5X, 'MACH1-' , F6 . 3, ' , ' , 2X, 'MACH2-' , F6 . 3, ' , ' , 2X, ' SFBTP-' , F6 . 3,  '  ,  '  / 
ft5X,  ' SFINSP-' , F6 . 3, ' , ' , IX, ' SFIP-' , F6 . 3, ' , ' , 3X, ' SFSFC1-' , F6 . 3, ' , ' / 
ft5X, ' SFSFC2-' , F6. 3, ' , ' , IX, ' SFSFC3-' , F6 . 3,  '  ,  '  / 
ft5X, ' ALTD-' , 5 (F7 . 1, ' , ' ) , F7 . 1 /5X, ' XMACH-' , 5 (F6 . 3, ' , ' ) , F6 . 3/ 

&5X, ' DEPWCC-' , F6 . 3, ' , ' , IX, ' EN-' , 12, ' , ' , 9X, ' IPR-' , 12, ' , ' / 
ft5X,  '  KODE-'  ,  II,  '  ,  '  ,  8X,  '  KT5-'  ,  12,  '  ,  '  ,  8X,  '  KT7-'  ,  12,  ' ,  '  / 
ft5X, ' NOZZ-' , II, ' , ' , 8X, ' NPUSE-' , II, ' , ' , 7X, ' IPLOT-' , 11, ' , ' / 
ft5X, ' IPRINT-' , 11, ' , ' , 6X, ' KERROR-' , II, ' , ' , 6X, 'MINPR-' , II, ' , ' / 
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«.5X,  'MODPRT-'  ,11,'  ,  6X,  'NAB-'  ,11,'  ,'  ,  9X,  'NDTAIL-'  ,12,'  ,'  / 

&5X, ' USUM^H' , 12 , ' , ' 6X, ' ALTI-' , F3 . 1, ' , ' , 6X, ' AM-' , F3 . 1 , ' , ' / 

45X,  '  POSA-'  ,  F5 . 2, ' , ' , 4X, ' TOSA-' , F5 . 1, ' , ' /5X, ' $END' ) 

RETURN 

END 

C - 

C  -  ENGINE  DEFAULTS 

C - 

SUBROUTINE  LEWIS <ITyPE,  AENDIA,  AENLE,  AENWT,  ARERTO,  ATURB, 
&BA,  DIAl,  FRBT,  FRPN,  HTR,  HVF,  PCDFAC,  PWCC,  RDIAM,  RLENG, 
4SM1,  SODG,  VCl,  WCWAl,  YREN,  ESF,  TWAB,  TWOAB,  TWTO,  EABl, 
iEBl,  EDI,  ETACl,  ETAFl,  ETATl,  PRFD,  PllPl,  P2P1,  R32,  R54, 
4R34N,  R711,  R711N,  SCPR,  DELT57,  T3,  T51,  T71,  DELPR,  RlOA, 
fiMACHl,  MACH2,  SFBTP,  SFINSP,  SFIP,  SFSFCl,  SFSFC2,  SFSFC3, 
4ALTD,  XMACH,  DEPWCC,  EN,  IPR,  KODE,  KT5,  KT7,  NOZZ,  NPUSE, 
SIPLOT,  IPRINT,  KERROR,  MINPR,  MODPRT,  NAB,  NDTAIL,  NSUMM,  ALTI, 
&AM,  POSA,  TOSA) 

C 

INTEGER  EN 

REAL  MACHl,  MACH2 

AENDIA-0 . 0 

AENLE-0 . 0 

AENWT-0 . 0 

ARERTO-1 . 0 

ATURB-0.242 

BA-0 . 0 

DIAl-1.365 

FRBT-0 . 0 

FRPN-0 . 0 

HTR-0 . 6 

HVF-18600.0 

PCDFAC-1 . 0 

PWCC-100.0 

RDIAM-1.15 

RLENG-2 . 0 

SMl-0 . 6 

SODG-1 . 0 

VCl-0. 98 

WCWAl-0 . 0 

yREN-64 . 0 

ESF-1 . 0 

TWAB-0 , 0 

TWOAB-0 . 0 

TWTO-0.5 

EABl-0. 75 

EBl-0.87 

EDl-0,75 

ETACl-0 . 8 

ETAFl-0.82 

ETATl-0 . 9 

PRFD-1 . 0 

PllPl-1.0 

O2P1-7.0 

RJ2-0, 95 

R54-0.94 

R54N-0.94 

R711-0 . 98 

R711N-0.82 

SCPR-1.27 

DELT57-100.0 
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T3-2160.0 
T51-0.0 
T71-0.0 
DELPR-0 . 0 
RIGA— 1.0 
MACHl-1 . 0 
MACH2-1 . 1 
SFBTP-O . 0 
SriNSP-0 . 0 

srip-0.0 

SFsrci-i . 0 

SFSFC2-1 . 0 

SFSFC3-1 . 0 

ALTD-0 . 0 

DEPWCC-2 . 0 

XMACH-0 . 0 

EN»2 

IPR-3 

KODE-0 

KT5— 1 

KT7-0 

NOZZ-1 

NPUSE-2 

IPLOT-0 

IPRINT-0 

KERROR-0 

MINPR-1 

MODPRT-4 

NAB-6 

NDTAIL-0 

NSUMM-15 

ALTI-O . 0 

AM-0.0 

POSA-29.92 

TOSA-518.0 

IF(ITYPE.EQ.l)  THEK  !  SET  J85  DEFAULTS 

AENDIA-1.365 
AENLE-9.16 
AENWT-608 . 0 
ATURB-0.242 
BA-0 . 0 
DIAl-1.365 
BBl-0.87 
ETACl-0 . 8 
HTR-0 , 6 
PRFD-1.0 
PllPl-1.0 
P2P1-7.0 
RIGA— 1.0 
R32-0.95 
R54N-0.94 
SCPR-1.27 
SMl-0 . 6 
TWAB-4080.0 
TWOAB-2720.0 
T3-2160.0 
WCWAl-0 . 0 
YREN-63.0 
AENLE<-9.16 
AENWT-608. 0 
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KODE-0 
KT5— 1 
NOZZ-1 

ENDXB* 

ir(ITYPE.EQ.2)  THEN  !  SET  TF30  DEFAULTS 

AENDIA-3.8 
AENLE-15.18 
AENWT-3790.0 
ATURB-0.328 
BA-0.73 
DIAl-3 . 8 
EBl-0.94 
ETACl-0 . 8 
HTR-0 . 6 
PRrD-2 . 43 
PllPl-7.41 
P2P1-21.8 
R54-0.92 
R54N-0.88 
SCPR-I.21 
TWAB-25100.0 
TWOAB-14560.0 
T3-2743.0 
WCWAI-0.018 
TREN-71.0 
AENLE-15.18 
AENWT-3790.0 
KT5-2 
KT7-2 
NOZZ-l 

ENOIF 

IF (1TYPE.EQ.3)  THEN  !  SET  JT8D  DEFAULTS 

AENDIA-3.66 
AENLE-10.31 
AENWT-3218.0 
ATURB-0.411 
BA-1.03 
DIAl-3.655 
EBl-0.94 
ETACl-0.82 
HTR-0 . 4 
PRFD-1 . 91 
PllPl-4.2 
P2P1-16.9 
R32-0.95 
R54-0. 96 
R54N-0.98 
SCPR-1 . 2 
TWAB-0 . 0 
TWOAB-1 4500.0 
T3-2180.0 
WCWAl-0 . 0 
yREN-68 . 0 
AENLE-10.31 
AENWT-3218.0 

END  IF 

IF (ITYPE.EQ. 4)  THEN  ! SET  JT9D  DEFAULTS 

AENLE-14.08 
AENWT-8874.0 
ATURB-0.385 
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BA-8 . 2 
EBl-0 . 98 
ETACl-0.82 
ETATl-0 . 92 
HTR-0 . 3 
PRTD-l . 6 
PllPl-1.6 
P2P1-22 . 9 
RS4K-0.96 
SCPR-1 . 2 
TWAB-0.0 
TNQAB-50000 . 0 
T3-2835.0 
WCWAl-0 . 02 
YREll-70.0 
AENLE-14.08 
AEHHT-8874.0 

EHDIF 

IF(ITYPE.EQ.5)  THEN  !SET  CF6  DEFAULTS 

AENDZA-8 . 2 
AENLE-14.86 
AENNT-9767.0 
ATURB-0.385 
BA-4.4 
DZAl-8 . 2 
EBl-0.94 
ETACl-0.82 
ETATl-0 . 92 
HTR-0 . 3 
PRFD-1.56 
PllPl-1.72 
P2P1-30.0 
R54N-0.92 
SCPR-1. 21 
TWAB-0.0 
THOAB-50280 . 0 
T3-2800.0 
HCWAl-0 . 02 
yREN-70.0 
AENLE-14 . 86 
AENWT-9767.0 

ENDIF 

IF (ITyPE.EQ.6)  THEN  !SET  GENERIC  DEFAULTS 

AENDIA-8.2 
AENLE-8 . 67 
AENWT-1421.0 
ATURB-0.385 
BA-6.23 
DIAl-8,2 
EABl-0 . 75 
EBl-0.87 
EDl-0.75 
ETACl-0 . 8 
ETAFl-0 . 9 
ETATl-0 . 92 
HTR-0 . 6 
PRFD-1.51 
PWCC-100.0 
PllPl-1.396 
P2P1-20.1 
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RIGA— 1,0 
R32-0 . 97 
R54-0.98 
R54N-0.98 
R711-0.98 
R711N-.98 
SCPR-1.21 
SMl-0 . 5 
TWAB-0 . 0 
TWOAB-9300.0 
T3-2637.0 
T51-3400.0 
T71-3400.0 
VCl-0 . 98 
WCHAl-0 . 0 
YREN-70.0 
KODE-2 
KT5-0 
KT7-0 
NOZZ-0 
ENDIF 
RETURN 
END 

SUBROUTINE  WEIGHTS  (DVFLAG,  ATYPE) 

C  oooooooooooooooooooooooooooooooo 

C  -  WEIGHTS 

C  <><><><><><><><><><><><><><><><><><x><xx><x><><><><><><><><> 

LOGICAL  DVFLAG 

CHARACTER  ANS*6,  TITLE*80,  ATYPE*10 
DIMENSION  SLOPE (17) 

REAL  KPl,  KP2,  Kl,  K2,  K3,  K4,  K5 

7650  IF (DVFLAG. EQ. .FALSE.)  THEN 

7660  STATUS  -  LIBSSPAWN (' CLS' ) 

WRITE (6, 7665) 

7665  FORMAT (// 

&  7X, 'DO  YOU  WANT  TO  MAKE  ANY  CHANGES  TO  THE  WEIGHTS'/ 

&  7X, 'MODULE?' //7X,' (1)  YES'/7X, '(2)  NO'// 

&  7X,' SELECT  1  OR  2:  ',$) 

READ(5,7666,ERR-7660)  NUM 

7666  FORMAT (II) 

IF(NUM.EQ.l)  GOTO  7750 
IF (NUM, NE. 2)  GOTO  7660 

C  -  TRANSFER  THE  SOPTS  AND  $FIXW  NAMELISTS  FROM  (10)  TO  (7) 

REWIND (10) 

7680  READ (10, 7681)  ANS 

7681  FORMAT (A6) 

IF(ANS.NE.'***  WE')  GOTO  7680 

7690  WRITE (7, 7695)  ATYPE  !  AIRCRAFT  TYPE  ABOVE  WEIGHTS  TITLE 

7695  FORMAT (AlO) 

WRITE (7, 7705) 

7705  FORMAT ('***  WEIGHTS  DATA  ♦**' ) 

DO  7730  1-1,22 

READ (10, 7708)  TITLE 

7708  FORMAT (A80) 

WRITE (7, 7708)  TITLE 

7730  CONTINUE 
RETURN 
ENDIF 

7750  IF (DVFLAG. EQ. .FALSE.)  THEN 
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REWIND (10) 

7760  READ (10,7681)  ANS 

IF(ANS.NE.'***  WE')  GOTO  7760 

READ (10, 7770)  FR,  KFl,  KP2,  SLOPE (1),  SLOPE (2),  SLOPE (3), 

&  SLOPE (4),  SLOPE (5),  SLOPE (6),  SLOPE (7),  SLOPE (8),  SLOPE (9), 

&  SLOPE (10),  SLOPE (11),  SLOPE (12),  SLOPE (13),  SLOPE (14), 

&  SLOPE (15),  SLOPE (16),  SLOPE (17),  TECHG,  DENS,  WGTO,  AFMACH, 

&  Kl,  K2,  K3,  K4,  K5,  STRESS,  IDELT,  lOBLIQ,  IPRINT,  ITAIL, 

&  KBODY,  KERROR,  KWING,  WPL,  WAMMDN,  WBOMB,  WMISS,  WETANK 
7770  FORMAT(/8X,F6.3,10X,F6.3,9X,F6.3/14X,F6.3,19X,F6.3/ 

&  14X,F6.3,19X,F6.3/14X,F6.3,19X,F6.3/14X,F6.3,19X,F6.3/ 

&  14X,r6.3,20X,F6.3/15X,F6.3,19X,P6.3/15X,F6.3,19X,F6.3/ 

&  15X, F6 . 3, 19X, F6 . 3/15X, F6 . 3/llX, F6 . 3, 8X, F6 . 3, 9X, F8 . 1/ 

6  12X, F6 . 3, 5X, F6 . 3, 9X, F6 . 3/8X, F6 . 3, 9X,  F6 . 3, 9X, F6 . 3/ 

&  12X, F8 . 1, 21X, I1/12X, II, 14X, II, 13X, Il/llX, II, 15X, II, 13X, II/// 

&  9X,  F8 . 1,  lOX,  F7 . 1, 7X, F8 . 1/llX, F8 . 1, 8X, F7 . 1) 

END  IF 

IF(DVFLAG.EQ. .TRUE.)  THEN  !  SET  DEFAULTS 

CALL  WGHT(FR,  KPl,  KP2,  SLOPE,  TECHG,  DENS,  WGTO,  AFMACH, 

&  Kl,  K2,  K3,  K4,  K5,  STRESS,  IDELT,  lOBLIQ,  IPRINT,  ITAIL, 

&  KBODX,  KERROR,  KWING,  WPL,  ATYPE,  WAMMUN,  WBOMB,  WMISS, 

6  WETANK) 

END  IF 
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7800  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 7805)  (SLOPE (I) , I-l, 9) 

7805  FORMAT (/ 

ftlX,'**  WEIGHTS  PAGE  1  **'// 

&7X,  Ml)  WING  SLOPE . ',F6.3/ 

<17X,M2)  fuselage  SLOPE . ',F6.3/ 

S7X, M3)  HORIZONTAL  TAIL/CANARD  SLOPE . ',F6.3/ 

i7X,M4)  VERTICAL  TAIL  SLOPE . ',F6.3/ 

S7X,  MS)  NACELLES  SLOPE . ',F6.3/ 

S7X,M6)  landing  gear  slope . ',F6.3/ 

i7X,M7)  ENGINES  SLOPE . ',F6.3/ 

&7X,M8)  fuel  system  slope . ',F6.3/ 

<i7X,M9)  HYDRAULICS/PNEUMATICS  SLOPE . ',F6.3// 


S7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,7666,ERR-7800)  NUM 
IF(NUM.EQ.O)  GOTO  7920 

GOTO  (7820,  7830,  7840,  7850,  7860,  7870,  7880,  7890,  7900)  ,NUM 
GOTO  7800 
7820  WRITE (6, 7825) 

7825  FORMAT (/7X, 'ENTER  THE  WING  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7820)  SLOPE (1) 

7826  FORMAT (F6. 3) 

IF( (SLOPE(l) .LT.0.0) .OR. (SLOPE(l) .GT.3.0) )  GOTO  7820 
GOTO  7800 
7830  WRITE (6, 7835) 

7835  FORMAT (/7X, 'ENTER  THE  FUSELAGE  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7830)  SLOPE (2) 

IF( (SLOPE(2) .LT. 0.0) .OR. (SLOPE(2) .GT.3.0) )  GOTO  7830 
GOTO  7800 
7840  WRITE (6, 7845) 

7845  FORMAT (/7X, 'ENTER  THE  HORIZONTAL  TAI L/ CANARD ' / 
fi7X, 'WEIGHT  SLOPE:  ',$) 

READ (5,7826,ERR-7840)  SLOPE (3) 

IF( (SLOPE(3) .LT.0.0) .OR. (SLOPE(3) .GT, 3.0) )  GOTO  7840 
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GOTO  7800 
7850  WRITE (6, 7855) 

7855  FORMAT (/7X, 'ENTER  THE  VERTICAL  TAIL  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7850)  SLOPE (4) 

IF{ (SLOPE(4) .LT.0.0) .OR. (SLOPE(4) .GT.3.0) )  GOTO  7850 
GOTO  7800 
7860  WRITE (6, 7865) 

7865  FORMAT (/7X, 'ENTER  THE  NACELLES  WEIGHT  SLOPE:  ',$} 
READ(5,7826,ERR-7860)  SLOPE (5) 

IF({SLOPE(5) .LT. 0.0) .OR. (SLOPE{5) .GT.3.0))  GOTO  7860 
GOTO  7800 
7870  WRITE(6,7875) 

7875  FORMAT (/7X, 'ENTER  THE  LANDING  GEAR  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7870)  SLOPE (6) 

IF((SLOPE(6) .LT. 0.0) .OR. (SLOPE{6) .GT.3.0))  GOTO  7870 
GOTO  7800 
7880  WRITE (6, 7885) 

7885  FORMAT (/7X, 'ENTER  THE  ENGINES  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7880)  SLOPE (7) 

IF( (SLOPE(7) .LT. 0.0) .OR. (SLOPE(7) .GT.3.0) )  GOTO  7880 
GOTO  7800 
7890  WRITE (6, 7895) 

7895  FORMAT (/7X, 'ENTER  THE  FUEL  SYSTEM  WEIGHT  SLOPE:  ',$) 

READ (5, 7826,ERR-7890)  SLOPE (8) 

ir( (SLOPE(8)  .LT. 0.0)  .OR.  (SLOPE(8) .GT.3.0) )  GOTO  7890 
GOTO  7800 
7900  WRITE (6, 7905) 

7905  FORMAT (/7X, 'ENTER  THE  HYDRAULICS /PNEUMATICS  WEIGHT  SLOPE:  ',$) 
READ (5,7826,ERR-7900)  SLOPE (9) 

IF ((SLOPE (9) .LT. 0.0) .OR. (SLOPE (9) .GT.3.0))  GOTO  7900 
GOTO  7800 
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7920  STATUS  -  LIB$SPAWN (' CLS' ) 

WRITE (6, 7925)  (SLOPE (I) , I-IO, 17) ,  WPL 


7925  FORMAT  (/ 

&7X, '**  WEIGHTS  PAGE  2  **'// 

S7X,'(1)  ELECTRICAL  SYSTEM  SLOPE . ',F6.3/ 

&7X,'(2)  AVIONICS  SLOPE . ',F6.3/ 

&7X,'(3)  INSTRUMENTATION  SLOPE . ',F6.3/ 

i7X,'(4)  ENVIRONMENTAL  SYSTEM  SLOPE . ',F6.3/ 

&7X, '(5)  PASSENGER  ACCOMODATIONS  SLOPE . ',F6.3/ 

S7X,'(6)  AUXILIARY  POWER  UNIT  SLOPE . ',F6.3/ 

&7X,'(7)  FLIGHT  CONTROLS  SLOPE . ',F6.3/ 

i7X,'(8)  CREW  ACCOMODATIONS  SLOPE . ',F6.3/ 

&7X,'(9)  PAYLOAD  WEIGHT  (LBS) . ',F8.1// 


i7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,7666,ERR-7920)  NUM 
IF(NUM.EQ.O)  GOTO  8030 

GOTO  (7940,  7950,  7960,  7970,  7980,  7990,  8000,  8010,  8020)  ,NUM 
GOTO  7920 
7940  WRITE (6, 7945) 

7945  FORMAT (/7X, 'ENTER  THE  ELECTRICAL  SYSTEM  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7940)  SLOPE (10) 

IF ( (SLOPE (10) .LT. 0.0) .OR. (SLOPE(IO) .GT.3.0) )  GOTO  7940 
GOTO  7920 
7950  WRITE (6, 7955) 

7955  FORMAT (/7X, 'ENTER  THE  AVIONICS  WEIGHT  SLOPE:  ',$) 

READ (5,7826,ERR-7950)  SLOPE (11) 
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IF( (SLOPE(ll) .LT.0.0) .OR. (SLOPE(ll) .GT.3,0) )  GOTO  7950 
GOTO  7920 
7960  WRITE (6, 7965) 

7965  FORMAT (/7X, 'ENTER  THE  INSTRUMENTATION  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7960)  SLOPE (12) 

IF< (SLOPE(12) .LT.0.0) .OR. (SLOPE(12) .GT.3.0) )  GOTO  7960 
GOTO  7920 
7970  WRITE (6, 7975) 

7975  FORMAT (/7X, 'ENTER  THE  ENVIRONMENTAL  SYSTEM  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7970)  SLOPE (13) 

IF( (SLOPE(13) .LT. 0.0) .OR. (SLOPE(13) .GT.3.0) )  GOTO  7970 
GOTO  7920 
7980  WRITE (6, 7985) 

7985  FORMAT (/7X, 'ENTER  THE  PASSENGER  ACCOMODATIONS'/ 

67X, 'WEIGHT  SLOPE:  ',$) 

READ(5,7826,ERR-7980)  SLOPE (14) 

IF ( (SLOPE (14) .LT. 0.0) .OR. (SLOPE (14) .GT.3.0) )  GOTO  7980 
GOTO  7920 
7990  WRITE (6, 7995) 

7995  FORMAT (/7X, 'ENTER  THE  AUXILIARY  POWER  UNIT  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-7990)  SLOPE (15) 

IF((SLOPE(15)  .LT. 0.0)  .OR.  (SLOPE(15) .GT.3.0))  GOTO  7990 
GOTO  7920 
8000  WRITE (6, 8005) 

8005  FORMAT (/7X, 'ENTER  THE  FLIGHT  CONTROLS  WEIGHT  SLOPE:  ',$) 

READ (5,7826,ERR-8000)  SLOPE (16) 

IF( (SLOPE(16) .LT. 0.0) .OR. (SLOPE(16) .GT.3.0) )  GOTO  8000 
GOTO  7920 
8010  WRITE (6, 8015) 

8015  FORMAT (/7X, 'ENTER  THE  CREW  ACCOMODATIONS  WEIGHT  SLOPE:  ',$) 
READ(5,7826,ERR-8010)  SLOPE (17) 

lF((SLOPE(17) .LT. 0.0) .OR. {SLOPE(17) .GT.3.0))  GOTO  8010 
GOTO  7920 
8020  WRITE (C, 8025) 

8025  FORMAT (/7X, 'ENTER  THE  TOTAL  PAYLOAD  WEIGHT  (LBS).  (THIS'/ 

&7X, 'SHOULD  INCLUDE  ALL  AMMUNITION,  ARMAMENT,  MISSILES,'/ 

S7X, 'BOMBS,  PASSENGERS  ETC...):  ',$) 

READ (5,8026,ERR-8020)  WPL 

8026  FORMAT (F8.1) 

IF (WPL. LT. 0.0)  GOTO  8020 
GOTO  7920 
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8030  STATUS  -  LIB$SPAWN('CLS' ) 

WRITE (6, 8035)  KPl,  KP2,  AFMACH,  DENS,  STRESS,  IDELT,  lOBLIQ, 


&ITAIL,  KBODY,  KWING,  WGTO 
8035  FORMAT (/ 

&7X, '**  WEIGHTS  PAGE  3  **'// 

«7X, '(1)  WING  PIVOT  FACTOR . ',F6.3/ 

S7X,  '  (2)  EXTERNAL  TANK  FACTOR . ',F6.3/ 

S7X, '(3)  MAXIMUM  MACH  NUMBER.  ..  . . ',F6.3/ 

67X, '  (TRANSPORTS/BOMBERS  ONLY) ' / 

47X, ' (4)  OBLIQUE  WING  MATERIAL  DENSITY  (LBS/IN3) . ',F6.3/ 

S7X, '(5)  OBLIQUE  WING  ALLOWABLE  STRESS  (PSD . ',F8.1/ 

&7X,  '  (6)  WING  WEIGHT  EQUATION . '  ,  11/ 

S7X, '  (0  -  STANDARD  WING,  1  -  DELTA  WING) ' / 

S7X, '(7)  OBLIQUE  WING  fWIIGHT  EQUATION . ',11/ 

67X,  '  (0  -  STANDARD  WING,  1  =  OBLIQUE  WING)'/ 

&7X, '(8)  TAIL  INDICATOR . ',11/ 
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&7X, '  (0  -  STANDARD  TAIL,  1  -  HIGH/T-TAIL) ' / 

fi7X, '(9)  BODY  EQUATION  (TRANSPORTS /BOMBERS) . ',11/ 

&7X, '  (1  -  SANDERS,  2  -  AIR  FORCE)'/ 

S7X, '(10)  WING  WEIGHT  TECHNIQUE  (TRANSPORTS /BOMBERS) 11/ 
&7X, '  (1  -  SANDERS,  2  -  AIR  FORCE,  3  “  LANGLY) ' / 

S7X,'(11)  ESTIMATE  OF  TAKEOOFF  GROSS  WEIGHT . ',F8.1// 

i7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE:  ',$) 
READ(5,8036,ERR-8030)  NUM 
8036  FORMAT (12) 

IF(NUM.EQ.O)  GOTO  8160 

GOTO  (8050,  8060,  8070,  8080,  8090,  8100,  8110,  8120,  8130, 
&8140,  8150)  ,NUM 
GOTO  8030 
8050  WRITE (6, 8055) 

8055  FORMAT (/7X, 'ENTER  THE  WING  PIVOT  FACTOR  (1.0  -  STANDARD'/ 
fi7X, 'WING  PIVOT  WEIGHT):  ',$) 

READ(5,7826,ERR-8050)  KPl 

IF((KP1.LT.0.0)  .OR.  (!a>l.GT.3.0))  GOTO  8050 
GOTO  8030 
8060  WRITE (6, 8065) 

8065  FORMAT (/7X, 'ENTER  THE  EXTERNAL  FUEL  TANK  FACTOR'/ 
fi7X, '(1.0  -  STANDARD  METAL  TANKS):  ',$) 

READ(5, 7826,ERR-8060)  KP2 

1F( (KP2.lt. 0.0) .OR. (KP2.GT. 3.0) )  GOTO  8060 
GOTO  8030 
8070  WRITE (6, 8075) 

8075  FORMAT (/7X, 'ENTER  THE  MAXIMUM  ALLOWABLE  MACH  NUMBER  (FOR'/ 
&7X, 'TRANSPORTS  AND  BOMBERS  ONLY):  ',$) 

READ (5, 7826,ERR-8070)  AFMACH 

IF( (AFMACH.lt. 0.0) .OR. (AFMACH.GT. 3.0) )  GOTO  8070 
GOTO  8030 
8080  WRITE (6, 8085) 

8085  FORMAT (/7X, 'ENTER  THE  MATERIAL  DENSITY  OF  THE  OBLIQUE  WING'/ 
fi73c, '  (LBS/1N3)  :  ',$) 

READ(5,7826,ERR-8080)  DENS 

IF ( (DENS. LT. 0.0) .OR. (DENS. GT. 1.0) )  GOTO  8080 
GOTO  8030 
8090  WRITE (6, 8095) 

8095  FORMAT (/7X, 'ENTER  THE  ALLOWABLE  STRESS  IN  THE  OBLIQUE  WING:  ' 
READ (5, 8026,ERR-8090)  STRESS 

IF( (STRESS. LT. 5000.0) .OR. (STRESS. GT. 100000. 0) )  GOTO  8090 
GOTO  8030 
8100  WRITE (6, 8105) 

8105  FORMAT (/7X, 'ENTER  THE  WING  EQUATION  TO  USE.'/ 

S7X, ' (0  -  STANDARD  WING,  1  -  DELTA  WING) :  ',$) 

READ(5, 7666,ERR-8100)  IDELT 
IF ( (IDELT.NE.O) .AND. (IDELT.NE.l) )  GOTO  8100 
GOTO  8030 
8110  WRITE (6, 8115) 

8115  FORMAT (/7X, 'ENTER  THE  OBLIQUE  WING  EQUATION  TO  USE.'/ 

47X, ' (0  -  STANDARD  WING,  1  -  OBLIQUE  WING) :  ',$) 
READ(5,7666,ERR-8110)  lOBLIQ 

IF( (lOBLIQ.NE.O) .AND. (lOBLIQ.NE.l) )  GOTO  8110 
GOTO  8030 
8120  WRITE (6, 8125) 

8125  FORMAT (/7X, 'ENTER  THE  TAIL  TYPE  TO  USE.'/ 

S7X, ' (0  -  STANDARD  TAIL,  1  -  HIGH  TAIL  OR  T-TAIL) :  ',$) 
READ(5,7666,ERR-8120)  ITAIL 
IF ( (ITAIL.NE.O) .AND. (ITAIL.NE.l) )  GOTO  8120 
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GOTO  8030 
8130  WRITE (6, 8135) 

8135  FORMAT (/7X, 'ENTER  THE  BODY  EQUATION  TO  USE.'/ 
fi7X, '(1  -  SANDERS,  2  -  AIRFORCE);  ',$) 
REAO(5,7666,ERR-8130)  KBODY 
IF((KBODY.NE.l) .AND. (KBODy.NE.2) )  GOTO  8130 
GOTO  8030 
8140  WRITE <6, 8145) 

8145  FORMAT (/7X, 'ENTER  THE  WING  EQUATION  TECHNIQUE  TO  USE.'/ 
fi7X,  '  (1  -  SANDERS,  2  -  AIR  FORCE,  3  -  LANGLY)  :  ',$) 
RBAD(5,7666,ERR*8100)  KWING 
IF ( (KWING.lt. 1) .OR. (KWING.GT. 3))  GOTO  8140 
GOTO  8030 
8150  WRITE (6, 8155) 

8155  FORMAT (/7X, 'ENTER  AN  ESTIMATE  FOR  THE  TAKEOFF  GROSS'/ 
fi7X, '  WEIGHT  (LBS):  ',$) 

READ(5,8026,ERR-8150)  W6T0 
IF(WGTO.LE,0.0)  GOTO  8150 
GOTO  8030 

C - 

C  -  WEIGHTS  PAGE  4 

8160  STATUS  -  L1B$SPAWN('CLS') 

WRITE (6, 8161)  WAMMUN,  WBQMB,  WMISS,  WETANK 

8161  FORMAT (/7X,'**  WEIGHTS  PAGE  4  •*'// 

S7X,'(1)  WEIGHT  OF  THE  AMMUNITION  (LBS) . . . ' , F7 . 1/ 


47X,'(2)  WEIGHT  OF  THE  BC»1BS . ',F8.1/ 

fi7X,'(3)  WEIGHT  OF  THE  MISSILES . ',F8.1/ 

i7X, '  (4)  WEIGHT  OF  THE  EXTERNAL  TANKS . ',F7.1// 


4 7X, 'SELECT  A  VALUE  TO  CHANGE  OR  0  TO  CONTINUE;  ',$) 
READ(5,7666,ERR«8160)  NUM 
IF(NUM.EQ.O)  GOTO  8300 
GOTO  (8170,  8180,  8190,  8200)  ,NUM 
GOTO  8160 

8170  WRITE (6, 8175) 

8175  FORMAT (/7X, 'ENTER  THE  WEIGHT  OF  THE  AMMUNITION:  ',$) 
READ(5,8176,ERR-8170)  WAMMUN 

8176  FORMAT (F7.1) 

IF (WAMMUN.lt. 0.0)  GOTO  8170 
GOTO  8160 

8180  WRITE (6, 8185) 

8185  FORMAT (/7X, 'ENTER  THE  WEIGHT  OF  THE  BOMBS:  ',$) 
READ(5,8026,ERR-8180)  WBCX4B 
IF(WBC»ffl.LT.0.0)  GOTO  8180 
GOTO  8160 

8190  WRITE (6, 8195) 

8195  FORMAT (/7X, 'ENTER  THE  WEIGHT  OF  THE  MISSILES:  ',$) 

READ (5,8026,ERR-8190)  WMISS 
IF (WMISS.lt. 0.0)  GOTO  8190 
GOTO  8160 

8200  WRITE (6, 8205) 

8205  FORMAT (/7X, 'ENTER  THE  WEIGHT  OF  THE  EXTERNAL  TANKS:  ',$) 
READ(5,8176,ERR-8200)  WETANK 
IF (WETANK  LT.0.0)  GOTO  8200 
GOTO  8160 

8300  WRITE (7, 8365)  ATYPE,  FR,  KPl,  KP2,  SLOPE (1),  SLOPE (2),  SLOPE (3), 
SSLOPE(4),  SLOPE  (5),  SLOPE  (6),  SLOPE  (7),  SLOPE  (8),.  SLOPE  (9), 
SSLOPE(IO),  SLOPE (11),  SLOPE (12),  SLOPE (13),  SLOPE (14), 
<iSLOPE(15),  SLOPE  (16),  SLOPE  (17),  TECHG,  DENS,  WGTO,  AFMACH, 

&K1,  K2,  K3,  K4,  K5,  STRESS,  IDELT,  lOBLIQ,  IPRINT,  ITAIL, 
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o  o  o 


iKBODY,  KERROR,  KWING,  WPL,  WAMMDN,  WBOMB,  WMISS,  WETANK 
8365  FORMAT (AlO/'***  WEIGHTS  DATA  ***•/•  SOFTS' / 

S5X, ' FR-' , F6 . 3, ' , ' , 5X, ' KP1-' , F6 . 3, ' , ' , 4X, ' KP2-' , F6 . 3, ' , '  / 

S5X, ' SLOPE (1 ) , F6 . 3, ' , ' , 9X, ' SLOPE (2) , F6 . 3, ' , ' / 

&5X, 'SLOPE(3)-' ,F6.3, ' , ' , 9X, ' SLOPE (4) , F6 . 3, ' , ' / 

&5X, ' SLOPE (5) , F6 . 3, ' , ' , 9X, ' SLOPE ( 6) , F6 . 3, ' , ' / 

S5X, 'SLOPE (7)-' ,F6.3, ' , ' , 9X, ' SLOPE (8) , F6 . 3, ' , ' / 

65X, ' SLOPE ( 9) , F6 . 3, ' , ' , 9X, ' SLOPE (10) , F6 . 3, ' , ' / 

S5X, ' SLOPE (11) , F6 . 3, ' , ' , 8X, ' SLOPE (12) , F6 . 3, ' , ' / 
i5X,  '  SLOPE (13) , F6 . 3, ' , ' , 8X, ' SLOPE (14) , F6 . 3 , ' , ' / 
i5X, ' SLOPE (15) , F6 . 3, ' , ' , 8X, ' SLOPE (16) , F6 . 3, ' , ' / 
fi5X,  '  SLOPE (17) , F6 . 3, ' , ' / 

45X, ' TECHG-' , F6 . 3, ' , ' , 2X, ' DENS-' , F6 . 3, ' , ' , 3X, ' WGTO-' , F8 . 1, ' , ' / 
45X, ' AFMACH-' , F6 . 3, ' , ' , IX, ' K1-' . F6 . 3, ' , ' , 5X, ' K2-' , F6 . 3, ' , ' / 
t5X, ' K3-' , F6 . 3, ' , ' , 5X, ' K4-' , F6 . 3, ' , ' , 5X, ' K5-'  , F6 . 3, ' , '  / 
t5X, ' STRESS-' , F8 . 1, ' , ' , 14X, ' IDELT-' , II, ' , ' / 

S5X, ' IOBLIQ-' , II, ' , ' , 6X, ' IPRINT-' , II, ' , ' , 6X, ' ITAIL-' , II, ' , ' / 
S5X, ' KBODY-' , II, ' , ' , 7X, ' KERROR-' , II, ' ,  '  , 6X, ' KWING-'  ,  II,  '  ,  '  / 
&5X, 'SEND'/'  SFIXW'/ 

i5X, ' WPL-' , F8 . 1, ' , ' 2X, ' WAMMUN-' , F7 . 1, ' , ' , ' WBOMB-' , F8 . 1 , ' , ' / 
fi5X, ' WMISS-' , F8 . 1, ' , ' , ' WETANK-' , F7 . 1, ' , ' / 

S5X, 'SEND' ) 

RETURN 

END 


-  WEIGHTS  DEFAULTS 


SUBROUTINE  WGHT(FR,  KPl,  KP2,  SLOPE,  TECHG,  DENS,  WGTO,  AFMACH, 
SiKl,  K2,  K3,  K4,  K5,  STRESS,  IDELT,  lOBLIQ,  IPRINT,  ITAIL, 
&KBODY,  KERROR,  KWING,  WPL, ATYPE, WAMMUN,  WBOMB,  WMISS,  WETANK) 
DIMENSION  SLOPE (17) 

REAL  KPl,  KP2,  Kl,  K2,  K3,  K4,  K5 
CHARACTER  ATYPE* 10 
IF (ATYPE.EQ.' FIGHTER  ')  fR-1.5 
IF (ATYPE . EQ . ' BOMBER  ' )  FR-l . 0 
IF (ATYPE.EQ. 'TRANSPORT  ')  FR-1.0 
KPl-1.0 
KP2-1 .0 
DO  10  1-1,17 
SLOPE (I) -1.0 
10  CONTINUE 
TECHG- 1 . 0 
DENS-0.056 

IF (ATYPE . EQ. ' FIGHTER  ' )  WGTO-20000 

IF (ATYPE . EQ . ' BOMBER  ' )  WGTO-50000 

IF (ATYPE.EQ. 'TRANSPORT  ')  WGTO-100000 

AFMACH-0.85 

Kl-1.0 

K2-1 . 0 

K3-1 . 0 

K4-1.0 

K5-1 . 0 

STRESS-30000.0 

IDBLT-0 

IOBLIQ-0 

IPRINT-1 

ITAIL-0 

KBODY-1 

KERROR-0 

KWING-1 
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